From f767595849002e0e49e1e6f6b0a0c401b09e5c05 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Wed, 27 Apr 2016 08:30:12 +1200 Subject: [PATCH] LOOP+ -> +LOOP, LEAVE? -> ?LEAVE --- src/lib.4th | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lib.4th b/src/lib.4th index 1f97d20..781a966 100644 --- a/src/lib.4th +++ b/src/lib.4th @@ -116,7 +116,7 @@ : I RSP@ 3 - @ ; -: LEAVE? IMMEDIATE +: ?LEAVE IMMEDIATE ' 0BRANCH , 13 , ' R> , ' RDROP , ' RDROP , ' LIT , HERE @ 7 + , ' DUP , ' -ROT , ' - , ' SWAP , ' ! , @@ -126,10 +126,10 @@ : LEAVE IMMEDIATE ' LIT , -1 , - [COMPILE] LEAVE? + [COMPILE] ?LEAVE ; -: LOOP+ IMMEDIATE +: +LOOP IMMEDIATE ' R> , ' SWAP , ' R> , ' SWAP , ' R> , ' SWAP , ' + , ' 2DUP , ' - , ' SWAP , ' >R , ' SWAP , ' >R , ' SWAP , ' >R , ' 0<= , ' 0BRANCH , @@ -140,7 +140,7 @@ : LOOP IMMEDIATE ' LIT , 1 , - [COMPILE] LOOP+ + [COMPILE] +LOOP ; \ COMMENTS ---------------------------------------------------------------------- -- 2.20.1