From 1a8bb251eb6ed601ccfcfdc4fd3b7b48bea97abd Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 26 Apr 2016 21:33:11 +1200
Subject: [PATCH] Added LOOP+ and expressed LOOP as a special case.

---
 src/lib.4th | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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 ----------------------------------------------------------------------
 
-- 
2.20.1