X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_2_control.4th;h=e565d6bf3d574bb9d72be82eddae9314c77ffa00;hb=71a2b49135aa4ebb85e8050df0030ede456bc9db;hp=beb232d837a859e4f6f2a0542785ade97941ae26;hpb=90a9b8ad41a542c3ca7d150d4d1168cb8ec97b81;p=forth.jl.git

diff --git a/src/lib_2_control.4th b/src/lib_2_control.4th
index beb232d..e565d6b 100644
--- a/src/lib_2_control.4th
+++ b/src/lib_2_control.4th
@@ -99,6 +99,11 @@
         [COMPILE] ?LEAVE
 ;
 
+\ Clean up return stack
+: UNLOOP IMMEDIATE
+        ['] RDROP , ['] RDROP , ['] RDROP ,
+;
+
 : +LOOP IMMEDIATE
 
         ['] DUP , \ Store copy of increment