Diff for /gforth/stuff.fs between versions 1.71 and 1.72

version 1.71, 2012/02/07 16:48:55 version 1.72, 2012/02/09 18:23:29
Line 472  previous Line 472  previous
     \G the counted string. OBSOLESCENT: the counted string has a      \G the counted string. OBSOLESCENT: the counted string has a
     \G trailing space that is not included in its length.      \G trailing space that is not included in its length.
     sword here place  bl here count + c!  here ;      sword here place  bl here count + c!  here ;
   
   \ quotations
   
   :noname  false :noname ;
   :noname  locals-wordlist last @ lastcfa @
       postpone AHEAD
       locals-list @ locals-list off
       postpone SCOPE
       true  :noname  ;
   interpret/compile: [: ( compile-time: -- quotation-sys ) \ gforth bracket-colon
   \G Starts a quotation
   
   : ;] ( compile-time: quotation-sys -- ; run-time: -- xt ) \ gforth semi-bracket
       \g ends a quotation
       POSTPONE ; >r IF
           ]  postpone ENDSCOPE
           locals-list !
           postpone THEN
           lastcfa ! last ! to locals-wordlist
           r> postpone ALiteral
       ELSE  r>  THEN ( xt ) ; immediate

Removed from v.1.71  
changed lines
  Added in v.1.72


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