1 files changed, 7 insertions(+), 5 deletions(-)

M src/left.tal

@@ 1084,7 1084,7 @@ JMP2
 
 	;walk-color/c LDA ,&skip JCN
 	#0001 SUB2
-	LDA2 ;runes ;cfnd JSR2
+	LDA2 ;runes ;cndx JSR2 INC2 ORA
 	.textarea/highlight LDZ #00 EQU AND
 	SWP #21 LTH AND
 


@@ 1230,16 1230,18 @@ JMP2r
 	&bs NIP #00 SWP ;spop JSR2 #00 JMP2r
 	&del NIP #00 SWP ;sclr JSR2 #00 JMP2r
 
-@cfnd ( c str* -- bool )
+@cndx ( c str* -- index* )
 
 	ROT ,&c STR
+	DUP2
 	&w
-		LDAk [ LIT &c $1 ] EQU ,&t JCN
+		LDAk [ LIT &c $1 ] EQU ,&found JCN
 		INC2 LDAk ,&w JCN
-	POP2 #00
+	POP2 POP2
+	#ffff
 
 JMP2r
-	&t POP2 #01 JMP2r
+	&found SWP2 SUB2 JMP2r
 
 @runes ",.-;= $1