[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.87 and 1.88

version 1.87, Sun Mar 26 22:54:20 2006 UTC version 1.88, Sun Apr 30 17:33:53 2006 UTC
Line 694 
Line 694 
     if \ the last word has a header      if \ the last word has a header
         dup ( name>link ) @ -1 =          dup ( name>link ) @ -1 =
         if \ it is still hidden          if \ it is still hidden
             current @ dup >r @ over              forth-wordlist dup >r @ over
             [ has? flash [IF] ] flash! [ [ELSE] ] ! [  [THEN] ] r> !              [ has? flash [IF] ] flash! [ [ELSE] ] ! [  [THEN] ] r> !
         else          else
             drop              drop

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help