Added LOOP+ and expressed LOOP as a special case.

diff --git a/src/lib.4th b/src/lib.4th
index c9e07bf..f4e9908 100644 (file)
--- 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 ----------------------------------------------------------------------