1 files changed, 12 insertions(+), 12 deletions(-)

M src/left.tal

@@ 110,20 110,20 @@ JMP2
 
 @on-console ( -> )
 
-	#00 ;draw-filepath JSR2
-	( start )
-	[ LIT &listening $1 ] ,&no-start JCN
-		#01 ,&listening STR
+	[ LIT &listen $1 ] ,&no-start JCN
+		#01 ,&listen STR
+		#00 ;draw-filepath JSR2
 		;filepath ;sclr JSR2
 		&no-start
-	( end )
-	.Console/read DEI
-	DUP #1f GTH OVR #7f LTH AND ,&no-end JCN
-		#00 ,&listening STR
-		&no-end
-	( capture )
-	,capture-trap JSR
-	#01 ;draw-filepath JSR2
+	.Console/read DEI .filepath ;skey JSR2
+		,&open JCN
+
+BRK
+
+&open ( -> )
+
+	#00 ,&listen STR
+	;file-open JSR2
 
 BRK