0 , ( dummy length - we don't know what it is yet )
BEGIN
- >IN @ #TIB @ >= IF \ End of TIB?
- QUERY \ Get next line
+ >IN @ #IB @ >= IF \ End of TIB?
+ QUERY-INPUT \ Get next line
THEN
- TIB >IN @ + @ 1 >IN +! \ Get char from TIB
+ IB >IN @ + @ 1 >IN +! \ Get char from TIB
DUP [CHAR] " <>
WHILE
right-paren to the terminal. )
: .(
BEGIN
- >IN @ #TIB @ >= IF \ End of TIB?
- QUERY \ Get next line
+ >IN @ #IB @ >= IF \ End of TIB?
+ QUERY-INPUT \ Get next line
THEN
- TIB >IN @ + @ 1 >IN +! \ Get char from TIB
+ IB >IN @ + @ 1 >IN +! \ Get char from TIB
DUP [CHAR] ) = IF
DROP ( drop the double quote character )
: COUNT ( addr1 -- addr2 n )
DUP 1+ SWAP @ ;
-: ABORT" IMMEDIATE
+( Abort if flag is true. )
+: ABORT" IMMEDIATE ( flag -- )
[COMPILE] S"
['] rot ,