Added UNLOOP, COMPARE and TOLOWER.

[forth.jl.git] / src / lib_2_control.4th

diff --git a/src/lib_2_control.4th b/src/lib_2_control.4th
index beb232d..e565d6b 100644 (file)
--- 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