[gforth] / gforth / kernel / tools.fs  

gforth: gforth/kernel/tools.fs

Diff for /gforth/kernel/tools.fs between version 1.19 and 1.20

version 1.19, Mon Aug 25 14:17:54 2003 UTC version 1.20, Sun Feb 26 17:23:47 2006 UTC
Line 83 
Line 83 
   
 : wordlist-words ( wid -- ) \ gforth  : wordlist-words ( wid -- ) \ gforth
     \G Display the contents of the wordlist wid.      \G Display the contents of the wordlist wid.
     wordlist-id 0 swap cr      [ has? ec 0= [IF] ] wordlist-id [ [THEN] ]
       0 swap cr
     BEGIN      BEGIN
         @ dup          @ dup
     WHILE      WHILE

Generate output suitable for use with a patch program
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help