1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-28 07:58:06 +11:00

Remove unused DELW

This commit is contained in:
Virgil Dupras 2020-05-03 20:36:35 -04:00
parent 8ef197d248
commit a3c3a2f44a
3 changed files with 3 additions and 4 deletions

View File

@ -10,7 +10,7 @@ Entry management
, n -- Write n in HERE and advance it.
ALLOT n -- Move HERE by n bytes
C, b -- Write byte b in HERE and advance it.
DELW a -- Delete wordref at a. If it shadows another
definition, that definition is unshadowed.
EMPTY -- Rewind HERE and CURRENT where they were at
system initialization. (cont.)
system initialization.
(cont.)

View File

@ -6,5 +6,4 @@
LOOP
2DROP
;
: DELW 1- 0 SWAP C! ;
: PREV 3 - DUP @ - ;

Binary file not shown.