[gforth] / gforth / quotations.fs  

gforth: gforth/quotations.fs

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

version 1.2, Sun Dec 18 21:38:56 2011 UTC version 1.3, Thu Feb 9 17:27:37 2012 UTC
Line 4 
Line 4 
 :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 
Line 13 
     \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


Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help