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

M src/left.tal

@@ 698,14 698,16 @@ JMP2r
 
 @capture-selection ( -- )
 
-	.selection/length LDZ2 #0003 GTH2 ?&no-null
-		JMP2r
-		&no-null
+	( from ) .selection/from LDZ2
+	( to ) .selection/length LDZ2 #002f LTH2k [ JMP SWP2 POP2 ]
 
-	;search sclr
-	.selection/from LDZ2 ;search
-		( length ) .selection/length LDZ2 #0020 LTH2k [ JMP SWP2 POP2 ]
-		mcpy
+	[ LITr -search ]
+	ADD2k NIP2 SWP2
+	&l
+		LDAk STHkr STZ INCr
+		INC2 GTH2k ?&l
+	POP2 POP2
+	( cap ) #00 STHr STZ
 
 !update-nav