uxn

commit 7448e30b938504ece50ca4fcfc5c710b38c884c6
parent 0d7518bfdfde744c71e12ffddd0ad75f9acd9b4f
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Mon,  9 Dec 2024 13:33:18 -0800

(console.tal) Cleanup

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

1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/projects/examples/devices/console.tal b/projects/examples/devices/console.tal
@@ -25,8 +25,8 @@
 		STZ2
 		BRK }
 	;arg ;Dict/yousent <print-result>
-	[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-std .Console/vector DEO2 }
 	[ LIT2 -arg _&ptr ] STR
+	[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-std .Console/vector DEO2 }
 	BRK
 
 @on-std ( -> )
@@ -35,13 +35,10 @@
 		STZ2
 		BRK }
 	;std DUP2 ;Dict/yousaid <print-result>
-	;Dict/quit scmp ?quit
-	[ LIT2 -std _&ptr ] STR
-	BRK
-
-@quit ( -> )
-	#800f DEO
-	#010e DEO
+	;Dict/quit scmp ?{
+		[ LIT2 -std _&ptr ] STR
+		BRK }
+	( quit ) #800f DEO
 	BRK
 
 @<print-result> ( buf* name* -- )