Fall through from write-hex to write-short
1 files changed, 1 insertions(+), 5 deletions(-) M src/drifblim.tal
M src/drifblim.tal => src/drifblim.tal +1 -5
@@ 142,7 142,7 @@ JMP2r POP POP2 ;err/number !crash &byte POP NIP2 NIP !write &short POP NIP2 !write-short &short POP NIP2 ( fall through ) @write-short ( short* -- ) @@ 159,8 159,6 @@ JMP2r ( move ) #0001 !move-head ( .. ) @get-hex ( str* -- value* ) DUP2 is-hex ?&valid @@ 168,8 166,6 @@ JMP2r &valid !shex ( .. ) @get-rel ( label* -- distance ) .program/write LDZ #00 EQU ?&fill