gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

-version 1.39, 2004/12/01 10:02:59
+version 1.40, 2004/12/28 22:37:07
  Line 300  interpret/compile: action-of ( interpret
  comp' action-of drop
  interpret/compile: what's ( interpretation "name" -- xt; compilation "name" -- ; run-time -- xt ) \ gforth-obsolete
  \G Old name of @code{action-of}
+ : 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 ;