Diff for /gforth/stuff.fs between versions 1.24 and 1.25

version 1.24, 2003/01/22 17:12:49 version 1.25, 2003/01/22 18:52:47
Line 129  AUser CSP Line 129  AUser CSP
     repeat      repeat
     - + dup >r resize throw r> ;      - + dup >r resize throw r> ;
   
   \ ]] ... [[
   
   : compile-literal ( n -- )
       postpone literal ;
   
   : [[ ( -- )
   \G switch from postpone state to compile state
       \ this is only a marker; it is never really interpreted
       compile-only-error ; immediate
   
   : postponer ( c-addr u -- )
       2dup find-name dup if ( c-addr u nt )
           nip nip name>comp
           2dup [comp'] [[ d= if
               2drop ['] compiler is parser
           else
               postpone,
           endif
       else
           drop
           2dup snumber? dup if
               0> IF
                   swap postpone literal postpone compile-literal
               THEN
               postpone Literal postpone compile-literal
               2drop
           ELSE
               drop no.extensions
           THEN
       then ;
   
   : ]] ( -- )
       \ switch into postpone state
       ['] postponer is parser state on ; immediate restrict
   

Removed from v.1.24  
changed lines
  Added in v.1.25


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