mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 04:48:06 +11:00
Simplify word '
This commit is contained in:
parent
1536434666
commit
397ee3e3e6
5
blk/369
5
blk/369
@ -1,8 +1,5 @@
|
||||
: '? WORD FIND ;
|
||||
: '
|
||||
'? (?br) [ 4 , ] EXIT
|
||||
LIT< (wnf) FIND DROP EXECUTE
|
||||
;
|
||||
: ' '? NOT IF LIT< (wnf) FIND DROP EXECUTE THEN ;
|
||||
: ROLL
|
||||
?DUP NOT IF EXIT THEN
|
||||
1+ DUP PICK ( n val )
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user