0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-22 22:05:11 +00:00

(console.tal) Fixed underflow error on quit

This commit is contained in:
Devine Lu Linvega 2023-04-16 22:07:47 -07:00
parent a9527fbd95
commit 6021b2b63d

View file

@ -51,7 +51,7 @@ BRK
&eval ( -> )
print-type
;buf ;quit-txt scmp ?quit
;buf ;quit-txt scmp ?&quit
;yousaid-txt pstr
LIT "" #18 DEO
;buf pstr
@ -60,18 +60,18 @@ BRK
BRK
@print-type ( -- )
&quit ( buf* -> )
[ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2
!pstr
@quit ( buf* -> )
POP2 #010f DEO
#010f DEO
BRK
@print-type ( -- )
[ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2
!pstr
(
@|stdlib )