etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2025-01-03 06:01:30 +00:00
Code Issues Projects Releases Wiki Activity

(console.tal) Cleanup

Browse source
This commit is contained in:
Devine Lu Linvega 2024-12-09 13:33:18 -08:00
parent 0d7518bfdf
commit 7448e30b93
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
projects/examples/devices/console.tal
View file

@ -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* -- )