The Lambda Lab
/
projects
/
forth.jl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
efcae7a
)
LOOP+ -> +LOOP, LEAVE? -> ?LEAVE
author
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 26 Apr 2016 20:30:12 +0000
(08:30 +1200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 26 Apr 2016 20:30:12 +0000
(08:30 +1200)
src/lib.4th
patch
|
blob
|
history
diff --git
a/src/lib.4th
b/src/lib.4th
index
1f97d20
..
781a966
100644
(file)
--- a/
src/lib.4th
+++ b/
src/lib.4th
@@
-116,7
+116,7
@@
: I RSP@ 3 - @ ;
: I RSP@ 3 - @ ;
-:
LEAVE?
IMMEDIATE
+:
?LEAVE
IMMEDIATE
' 0BRANCH , 13 ,
' R> , ' RDROP , ' RDROP ,
' LIT , HERE @ 7 + , ' DUP , ' -ROT , ' - , ' SWAP , ' ! ,
' 0BRANCH , 13 ,
' R> , ' RDROP , ' RDROP ,
' LIT , HERE @ 7 + , ' DUP , ' -ROT , ' - , ' SWAP , ' ! ,
@@
-126,10
+126,10
@@
: LEAVE IMMEDIATE
' LIT , -1 ,
: 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 ,
' R> , ' SWAP , ' R> , ' SWAP , ' R> , ' SWAP , ' + , ' 2DUP , ' - ,
' SWAP , ' >R , ' SWAP , ' >R , ' SWAP , ' >R ,
' 0<= , ' 0BRANCH ,
@@
-140,7
+140,7
@@
: LOOP IMMEDIATE
' LIT , 1 ,
: LOOP IMMEDIATE
' LIT , 1 ,
- [COMPILE]
LOOP+
+ [COMPILE]
+LOOP
;
\ COMMENTS ----------------------------------------------------------------------
;
\ COMMENTS ----------------------------------------------------------------------