mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 05:48:06 +11:00
Move EMPTY to core words
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:
parent
f6ded7712e
commit
4146110e0d
1
blk/152
1
blk/152
@ -1,6 +1,5 @@
|
||||
'? CASE NOT [IF] 1 2 LOADR+ [THEN] DROP ( from '? )
|
||||
'? FILL NOT [IF] 3 LOAD+ [THEN] DROP
|
||||
'? EMPTY NOT [IF] 4 LOAD+ [THEN] DROP
|
||||
'? WIPE NOT [IF] 5 LOAD+ [THEN] DROP
|
||||
|
||||
|
||||
|
16
blk/156
16
blk/156
@ -1,16 +0,0 @@
|
||||
: EMPTY
|
||||
LIT< _sys FIND NOT IF ABORT THEN
|
||||
DUP HERE ! CURRENT ! ;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
4
blk/372
4
blk/372
@ -11,6 +11,4 @@
|
||||
WORD( HERE ! ( w )
|
||||
PREV CURRENT !
|
||||
;
|
||||
|
||||
|
||||
|
||||
: EMPTY LIT< _sys FIND IF DUP HERE ! CURRENT ! THEN ;
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user