1
0
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:
Virgil Dupras 2020-06-11 19:04:03 -04:00
parent f6ded7712e
commit 4146110e0d
4 changed files with 1 additions and 20 deletions

View File

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

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

View File

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

Binary file not shown.