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

M src/left.tal

@@ 119,13 119,7 @@ JMP2
 		,&open JCN
 
 BRK
-
-&open ( -> )
-
-	#00 ,&listen STR
-	;file-open JSR2
-
-BRK
+	&open ( -> ) #00 ,&listen STR ;file-open JSR2 BRK
 
 @on-button-trap ( -> )
 


@@ 137,7 131,7 @@ BRK
 		POP
 
 BRK
-	&open ( c -- ) ;file-open JSR2
+	&open ( c -- ) ;file-open JSR2 ( , )
 	&escape ( c -- ) POP ;untrap JSR2 BRK
 
 @on-mouse-trap ( -> )


@@ 1215,27 1209,20 @@ JMP2
 @mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ,&loop JCN POP2 POP2 POP2r JMP2r
 @sclr ( str* -- ) &w STH2k #00 STH2r STA INC2 LDAk ,&w JCN POP2 JMP2r
 
-@skey ( key buf -- proc )
+@skey ( key zbuf30 -- proc )
 
 	OVR ,&no-null JCN
 		POP JMP2r
 		&no-null
 	OVR #08 EQU ,&bs JCN
 	OVR #7f EQU ,&del JCN
-	OVR #21 LTH ,&eval JCN #00 SWP ;sput JSR2 #00
+	OVR #21 LTH ,&eval JCN
+	( overflow ) #00 OVR ;slen JSR2 #002f EQU2 ,&eval JCN
+	( append ) #00 SWP ;sput JSR2 #00
 
 JMP2r
 	&eval POP2 #01 JMP2r
 	&bs NIP #00 SWP ;spop JSR2 #00 JMP2r
 	&del NIP #00 SWP ;sclr JSR2 #00 JMP2r
 
-@pstr ( str* -- )
-
-	&w
-		LDAk #18 DEO
-		INC2 LDAk ,&w JCN
-	POP2
-
-JMP2r
-
 ~src/manifest.tal