![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to comp.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.42, 2002/04/01 15:34:35 | version 1.43, 2002/09/14 08:20:21 |
|---|---|
| Line 631 G -1 warnings T ! | Line 631 G -1 warnings T ! |
| >r 2dup 2dup r> (search-wordlist) warnings @ and ?dup if | >r 2dup 2dup r> (search-wordlist) warnings @ and ?dup if |
| >stderr | >stderr |
| ." redefined " name>string 2dup type | ." redefined " name>string 2dup type |
| compare 0<> if | str= 0= if |
| ." with " type | ." with " type |
| else | else |
| 2drop | 2drop |