Diff for /gforth/stuff.fs between versions 1.59 and 1.61

version 1.59, 2008/12/31 15:29:14 version 1.61, 2009/09/06 22:43:23
Line 155  AUser CSP Line 155  AUser CSP
   
 [ifdef] compiler1  [ifdef] compiler1
 : postponer1 ( c-addr u -- ... xt )  : postponer1 ( c-addr u -- ... xt )
     2dup find-name dup if ( c-addr u nt )      2dup find-name
       [ifdef] run-prelude run-prelude [then]
       dup if ( c-addr u nt )
         nip nip name>comp          nip nip name>comp
         2dup [comp'] [[ d= if          2dup [comp'] [[ d= if
             2drop ['] compiler1 is parser1 ['] noop              2drop ['] compiler1 is parser1 ['] noop

Removed from v.1.59  
changed lines
  Added in v.1.61


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>