X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib.4th;h=f4e9908a8cae2138c5d3a8e8557ec5bb6b8ab9ac;hb=1a8bb251eb6ed601ccfcfdc4fd3b7b48bea97abd;hp=c9e07bfafdfa18f8b8e57f4f8a9bc683394ed4e6;hpb=9ff796f2feff7d5c7e714ce610bc0e5c43f9b71e;p=forth.jl.git

diff --git a/src/lib.4th b/src/lib.4th
index c9e07bf..f4e9908 100644
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -112,14 +112,19 @@
 
 : I RSP@ 2- @ ;
 
-: LOOP IMMEDIATE
-        ' R> , ' R> , ' 1+ , ' 2DUP , ' - ,
+: LOOP+ IMMEDIATE
+        ' R> , ' R> , ' -ROT , ' + , ' 2DUP , ' - ,
         ' SWAP , ' >R , ' SWAP , ' >R ,
         ' 0<= , ' 0BRANCH ,
         HERE @ - ,
         ' RDROP , ' RDROP ,
 ;
 
+: LOOP IMMEDIATE
+    ' LIT , 1 ,
+    [COMPILE] LOOP+
+;
+
 
 \ COMMENTS ----------------------------------------------------------------------