projects
/
rrq
/
jonasforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Define ELSE
[rrq/jonasforth.git]
/
sys.f
diff --git
a/sys.f
b/sys.f
index df2d231a8266511b8dcfe5cc251f1be28bd4055f..cab2ab7173df3f16b69381af1c9659e0cd19629a 100644
(file)
--- a/
sys.f
+++ b/
sys.f
@@
-26,3
+26,10
@@
EXIT [
SWAP !
;
+: ELSE IMMEDIATE
+ ' BRANCH ,
+ HERE @
+ 0 ,
+ SWAP DUP HERE @ SWAP - SWAP !
+;
+