izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 16:28:05 +11:00
Code Issues Releases Wiki Activity

Simplify word '

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-20 14:13:41 -04:00
parent 1536434666
commit 397ee3e3e6
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
blk/369
View File

@ -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
View File

Binary file not shown.