izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 21:18:07 +11:00
Code Issues Releases Wiki Activity

Move EMPTY to core words

Browse Source 
It's a quite useful word and it doesn't make sense to reload it from
disk after each usage.
This commit is contained in:
Virgil Dupras 2020-06-11 19:04:03 -04:00
parent f6ded7712e
commit 4146110e0d
4 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blk/152
View File

@ -1,6 +1,5 @@
'? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? ) '? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? )
'? FILL NOT [IF] 3 LOAD+ [THEN] DROP '? FILL NOT [IF] 3 LOAD+ [THEN] DROP
'? EMPTY NOT [IF] 4 LOAD+ [THEN] DROP
'? WIPE NOT [IF] 5 LOAD+ [THEN] DROP '? WIPE NOT [IF] 5 LOAD+ [THEN] DROP

16
blk/156
View File

@ -1,16 +0,0 @@
: EMPTY
LIT< _sys FIND NOT IF ABORT THEN
DUP HERE ! CURRENT ! ;

4
blk/372
View File

@ -11,6 +11,4 @@
WORD( HERE ! ( w ) WORD( HERE ! ( w )
PREV CURRENT ! PREV CURRENT !
; ;
: EMPTY LIT< _sys FIND IF DUP HERE ! CURRENT ! THEN ;

BIN
emul/forth.bin
View File

Binary file not shown.