diff --git a/blk/037 b/blk/037 index dc63872..ea01792 100644 --- a/blk/037 +++ b/blk/037 @@ -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.) diff --git a/blk/434 b/blk/434 index fb01d02..83393ec 100644 --- a/blk/434 +++ b/blk/434 @@ -6,5 +6,4 @@ LOOP 2DROP ; -: DELW 1- 0 SWAP C! ; : PREV 3 - DUP @ - ; diff --git a/emul/forth.bin b/emul/forth.bin index 6a5486e..6821b9a 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ