commit 6021b2b63d0c8d43930f75c19f9d7c61881dbb1a parent a9527fbd959d032f5505b049a3ea3b1adfb0b6bb Author: Devine Lu Linvega <aliceffekt@gmail.com> Date: Sun, 16 Apr 2023 22:07:47 -0700 (console.tal) Fixed underflow error on quit Diffstat:
| M | projects/examples/devices/console.tal | | | 14 | +++++++------- |
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/projects/examples/devices/console.tal b/projects/examples/devices/console.tal @@ -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,17 +60,17 @@ BRK BRK -@print-type ( -- ) +&quit ( buf* -> ) - [ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2 + #010f DEO -!pstr +BRK -@quit ( buf* -> ) +@print-type ( -- ) - POP2 #010f DEO + [ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2 -BRK +!pstr ( @|stdlib )