diff --git a/blk/152 b/blk/152 index 7af33ba..0857b16 100644 --- a/blk/152 +++ b/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 diff --git a/blk/156 b/blk/156 deleted file mode 100644 index 5b68b28..0000000 --- a/blk/156 +++ /dev/null @@ -1,16 +0,0 @@ -: EMPTY - LIT< _sys FIND NOT IF ABORT THEN - DUP HERE ! CURRENT ! ; - - - - - - - - - - - - - diff --git a/blk/372 b/blk/372 index c6c5e4f..8b8ae1d 100644 --- a/blk/372 +++ b/blk/372 @@ -11,6 +11,4 @@ WORD( HERE ! ( w ) PREV CURRENT ! ; - - - +: EMPTY LIT< _sys FIND IF DUP HERE ! CURRENT ! THEN ; diff --git a/emul/forth.bin b/emul/forth.bin index 8b9a35c..cc5e851 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ