gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

-version 1.1, 1998/05/02 21:29:07
+version 1.2, 1998/08/29 20:46:13
  Line 391  Variable warnings ( -- addr ) \ gforth
  G -1 warnings T !
  : check-shadow  ( addr count wid -- )
- \G prints a warning if the string is already present in the wordlist
+     \G prints a warning if the string is already present in the wordlist
-  >r 2dup 2dup r> (search-wordlist) warnings @ and ?dup if
+     >r 2dup 2dup r> (search-wordlist) warnings @ and ?dup if
-    ." redefined " name>string 2dup type
+         >stderr
-    compare 0<> if
+         ." redefined " name>string 2dup type
-      ."  with " type
+         compare 0<> if
-    else
+             ."  with " type
-drop
+         else
-    then
+drop
-    space space EXIT
+         then
-  then
+         space space EXIT
-drop 2drop ;
+     then
+drop 2drop ;
  : reveal ( -- ) \ gforth
      last?