uxn

commit 0d7518bfdfde744c71e12ffddd0ad75f9acd9b4f
parent 253dc0974f05f7010bc944c09a4d4bc5658ea76f
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Mon,  9 Dec 2024 13:30:06 -0800

(console.tal) Cleanup

Diffstat:
M
projects/examples/devices/console.tal
 | 
16
+++++++---------

1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/projects/examples/devices/console.tal b/projects/examples/devices/console.tal
@@ -14,22 +14,22 @@
 	;Dict/hello <print-str>
 	.Console/type DEI ?{
 		( | no arguments )
-		;on-stdin .Console/vector DEO2
+		;on-std .Console/vector DEO2
 		BRK }
-	;on-argument .Console/vector DEO2
+	;on-arg .Console/vector DEO2
 	BRK
 
-@on-argument ( -> )
+@on-arg ( -> )
 	[ LIT2 02 -Console/type ] DEI NEQ ?{
 		.Console/read DEI [ LIT2 00 &ptr -arg ] INCk ,&ptr STR
 		STZ2
 		BRK }
 	;arg ;Dict/yousent <print-result>
-	[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-stdin .Console/vector DEO2 }
+	[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-std .Console/vector DEO2 }
 	[ LIT2 -arg _&ptr ] STR
 	BRK
 
-@on-stdin ( -> )
+@on-std ( -> )
 	[ LIT2 0a -Console/read ] DEI EQU ?{
 		.Console/read DEI [ LIT2 00 &ptr -std ] INCk ,&ptr STR
 		STZ2
@@ -39,8 +39,9 @@
 	[ LIT2 -std _&ptr ] STR
 	BRK
 
-@quit ( buf* -> )
+@quit ( -> )
 	#800f DEO
+	#010e DEO
 	BRK
 
 @<print-result> ( buf* name* -- )
@@ -52,9 +53,6 @@
 	#0a18 DEO
 	JMP2r
 
-(
-@|stdlib )
-
 @<print-str> ( str* -- )
 	LDAk #18 DEO
 	INC2 & LDAk ?<print-str>