X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib_6_strings.4th;h=16d800102f0ffe5ed3a55e0ac506f8491fafe1ef;hp=56a2174bf1325c2c87a0ab4f5e838dcadfd009a5;hb=492989e5e479cebefe9213a0c350534528d5f819;hpb=30a093845e2d1097242e948bb577fb71f73bc860

diff --git a/src/lib_6_strings.4th b/src/lib_6_strings.4th
index 56a2174..16d8001 100644
--- a/src/lib_6_strings.4th
+++ b/src/lib_6_strings.4th
@@ -45,11 +45,11 @@
         0 ,             ( dummy length - we don't know what it is yet )
 
         BEGIN
-                >IN @ #IB @ >= IF      \ End of TIB?
+                >IN @ #IB @ >= IF      \ End of IB?
                         QUERY-INPUT    \ Get next line
                 THEN
 
-                IB >IN @ + @ 1 >IN +!  \ Get char from TIB
+                IB >IN @ + @ 1 >IN +!  \ Get char from IB
 
                 DUP [CHAR] " <>
         WHILE
@@ -73,11 +73,11 @@
   right-paren to the terminal. )
 : .( 
         BEGIN
-                >IN @ #IB @ >= IF      \ End of TIB?
+                >IN @ #IB @ >= IF      \ End of IB?
                         QUERY-INPUT    \ Get next line
                 THEN
 
-                IB >IN @ + @ 1 >IN +!  \ Get char from TIB
+                IB >IN @ + @ 1 >IN +!  \ Get char from IB
 
                 DUP [CHAR] ) = IF
                         DROP    ( drop the double quote character )