gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

-version 1.112, 2004/12/28 21:09:47
+version 1.113, 2004/12/28 22:37:08
  Line 830  max-errors /error * cells allot
      \ !! not used...
      [char] $ emit base @ swap hex u. base ! ;
- : typewhite ( addr n -- ) \ gforth
- \G Like type, but white space is printed instead of the characters.
-     \ bounds u+do
-max bounds ?do
-         i c@ #tab = if \ check for tab
-             #tab
-         else
-             bl
-         then
-         emit
-     loop ;
  : -trailing  ( c_addr u1 -- c_addr u2 ) \ string dash-trailing
  \G Adjust the string specified by @i{c-addr, u1} to remove all
  \G trailing spaces. @i{u2} is the length of the modified string.