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

M src/left.tal

@@ 1175,22 1175,17 @@ JMP2r
 
 @file-goto ( -- )
 
-	.selection/length LDZ2 #0040 LTH2 [ JMP JMP2r ]
-
 	#00 draw-filepath
-
 	( copy selection to filepath )
 	.selection/to LDZ2 .selection/from LDZ2 [ LITr -filepath ]
 	&w
-		( buffer end ) STHkr .filepath/end EQU ?&e
+		( end of buffer ) STHkr .filepath/end EQU ?&e
 		( end of selection ) EQU2k ?&e
 		( whitespace ) LDAk #21 LTH ?&e
 		LDAk STHkr STZ INC2 INCr !&w
 	&e
 	( cap buffer ) #00 STHr STZ
 	POP2 POP2
-
-
 	#0000 set-scroll-y
 
 @file-open ( -- )


@@ 1216,8 1211,9 @@ JMP2r
 	edit-trim
 
 	;filepath .File/name DEO2
-	;text slen .File/length DEO2
-	;text .File/write DEO2
+	;text
+		DUP2 slen .File/length DEO2
+		.File/write DEO2
 	#01
 
 !draw-state