From 6021b2b63d0c8d43930f75c19f9d7c61881dbb1a Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 16 Apr 2023 22:07:47 -0700 Subject: [PATCH] (console.tal) Fixed underflow error on quit --- projects/examples/devices/console.tal | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/projects/examples/devices/console.tal b/projects/examples/devices/console.tal index 1ed0458..247d246 100644 --- 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,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 )