2 files changed, 4 insertions(+), 4 deletions(-)

M src/left.tal
M src/manifest.tal

@@ 598,7 598,7 @@ JMP2r
 
 @erase ( -- )
 
-	.selection/from LDZ2 ;text NEQ2 JMP JMP2r
+	.selection/from LDZ2 ;text NEQ2 [ JMP JMP2r ]
 
 	.selection/length LDZ2 #0001 EQU2 ?&no-block
 		erase-selection


@@ 1232,7 1232,7 @@ JMP2r
 
 @scmp ( a* b* -- f ) STH2 &l LDAk LDAkr STHr ANDk #00 EQU ?&e NEQk ?&e POP2 INC2 INC2r !&l &e NIP2 POP2r EQU JMP2r
 @shex ( str* -- val* ) LIT2r 0000 &w LITr 40 SFT2r LITr 00 LDAk chex STH ADD2r INC2 LDAk ?&w POP2 STH2r JMP2r
-@chex ( c -- val ) LIT "0 SUB DUP #09 GTH JMP JMP2r #27 SUB DUP #0f GTH JMP JMP2r POP #ff JMP2r
+@chex ( c -- val ) LIT "0 SUB DUP #09 GTH [ JMP JMP2r ] #27 SUB DUP #0f GTH [ JMP JMP2r ] POP #ff JMP2r
 @msfl ( b* a* len* -- ) STH2 SWP2 EQU2k ?&e &l DUP2k STH2kr ADD2 LDA ROT ROT STA INC2 GTH2k ?&l POP2 POP2 &e POP2r JMP2r
 @msfr ( b* a* len* -- ) STH2 EQU2k ?&e &l DUP2 LDAk ROT ROT STH2kr ADD2 STA #0001 SUB2 LTH2k ?&l POP2 POP2 &e POP2r JMP2r
 @sseg ( a* b* -- f ) STH2 &l LDAk LDAkr STHr NEQ ?&e INC2k LDA #00 EQU ?&e INC2 INC2r !&l &e LDA LDAr STHr EQU JMP2r

@@ 303,7 303,7 @@ JMP2r
 JMP2r
 	&buf $8
 	&buttons "ABsSUDLR $1
-	&cat ;&buf scat ,&end JMP
+	&cat ;&buf scat !&end
 	&bsp "bsp $1 &tab "tab $1 &ent "ent $1 &spc "spc $1 &esc "esc $1 &del "del $1
 
 @update-cursor ( color addr* -- )


@@ 342,7 342,7 @@ JMP2r
 (
 @|stdlib )
 
-@scap ( str* -- end* ) LDAk #00 NEQ JMP JMP2r &w INC2 LDAk ?&w JMP2r
+@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
 @spop ( str* -- ) LDAk ?&n POP2 JMP2r &n scap #0001 SUB2 #00 ROT ROT STA JMP2r
 @sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
 @slen ( str* -- len* ) DUP2 scap SWP2 SUB2 JMP2r