1 files changed, 8 insertions(+), 6 deletions(-)

M src/left.tal

@@ 327,7 327,7 @@ BRK
 	&hor
 		LDAk #0a EQU ?&hor-end
 		walk-color POP
-		DUP2 get-segw STH2 ADD2r
+		get-segw STH2 ADD2r
 		LTH2kr STHr ?&hor-end
 		INC2 LDAk ?&hor
 	&hor-end


@@ 458,7 458,7 @@ JMP2r
 	DUP2 find-line-start
 	&l
 		EQU2k ?&end
-		DUP2 get-segw STH2 ADD2r
+		get-segw STH2 ADD2r
 		INC2 GTH2k ?&l
 	&end
 	POP2 POP2


@@ 1010,7 1010,7 @@ JMP2r
 	LIT2r 0000
 	LDAk #00 EQU ?&skip
 	&w
-		DUP2 get-segw STH2 ADD2r
+		get-segw STH2 ADD2r
 		INC2 LDAk ?&w
 		&skip
 	POP2


@@ 1018,11 1018,13 @@ JMP2r
 
 JMP2r
 
-@get-segw ( addr* -- width* )
+@get-segw ( addr* -- addr* width* )
 
 	DUP2 is-rune ?&special
-	LDA !get-chrw
-	&special POP2 #0007 JMP2r
+	LDAk get-chrw
+
+JMP2r
+	&special #0007 JMP2r
 
 @get-chrw ( c -- width* )