[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

Diff for /gforth/stuff.fs between version 1.60 and 1.61

version 1.60, Sat Sep 5 17:38:37 2009 UTC version 1.61, Sun Sep 6 22:43:23 2009 UTC
Line 155 
Line 155 
   
 [ifdef] compiler1  [ifdef] compiler1
 : postponer1 ( c-addr u -- ... xt )  : postponer1 ( c-addr u -- ... xt )
     2dup      2dup find-name
     [ifdef] find-name-run-prelude find-name-run-prelude [else] find-name [then]      [ifdef] run-prelude run-prelude [then]
     dup if ( c-addr u nt )      dup if ( c-addr u nt )
         nip nip name>comp          nip nip name>comp
         2dup [comp'] [[ d= if          2dup [comp'] [[ d= if

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help