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,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 )