[BACK]Return to quotations.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/quotations.fs between versions 1.2 and 1.3

version 1.2, 2011/12/18 21:38:56 version 1.3, 2012/02/09 17:27:37
Line 3 Line 3
 :noname  false :noname ;  :noname  false :noname ;
 :noname  locals-wordlist last @ lastcfa @  :noname  locals-wordlist last @ lastcfa @
     postpone AHEAD      postpone AHEAD
     locals-list @  locals-list off      locals-list @ locals-list off
     locals-dp @ dup >r     postpone SCOPE      postpone SCOPE
     true  :noname  r> locals-dp ! ;      true  :noname  ;
 interpret/compile: [: ( -- quotation-sys )  interpret/compile: [: ( -- quotation-sys )
 \G Starts a quotation  \G Starts a quotation
   
Line 13  interpret/compile: [: ( -- quotation-sys Line 13  interpret/compile: [: ( -- quotation-sys
     \g ends a quotation      \g ends a quotation
     POSTPONE ; >r IF      POSTPONE ; >r IF
         ]  postpone ENDSCOPE          ]  postpone ENDSCOPE
         locals-dp !  locals-list !          locals-list !
         postpone THEN          postpone THEN
         lastcfa ! last ! to locals-wordlist          lastcfa ! last ! to locals-wordlist
         r> postpone ALiteral          r> postpone ALiteral
Removed from v.1.2  
changed lines
  Added in v.1.3

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