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:
parent
a9527fbd95
commit
6021b2b63d
1 changed files with 9 additions and 9 deletions
|
@ -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 )
|
||||
|
||||
|
|
Loading…
Reference in a new issue