[gforth] / gforth / see.fs  

gforth: gforth/see.fs

Diff for /gforth/see.fs between version 1.40 and 1.41

version 1.40, Mon Apr 1 15:34:34 2002 UTC version 1.41, Sat Sep 14 11:18:57 2002 UTC
Line 483 
Line 483 
                         ( end!) 2drop false EXIT THEN                          ( end!) 2drop false EXIT THEN
                 THEN                  THEN
                 \ jump over to extender, if any 26jan97jaw                  \ jump over to extender, if any 26jan97jaw
                 2 pick <>                  xt>threaded 2 pick <>
         WHILE   2 cells +          WHILE   2 cells +
         REPEAT          REPEAT
         nip cell+ perform          nip cell+ perform

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help