[gforth] / gforth / glocals.fs  

gforth: gforth/glocals.fs

Diff for /gforth/glocals.fs between version 1.22 and 1.24

version 1.22, Mon May 13 16:36:58 1996 UTC version 1.24, Wed Aug 21 14:58:41 1996 UTC
Line 505 
Line 505 
         code-address!          code-address!
     then ;      then ;
   
 : TO ( c|w|d|r "name" -- ) \ core-ext,local  :noname
       ' dup >definer [ ' locals-wordlist >definer ] literal =
       if
           >body !
       else
           -&32 throw
       endif ;
   :noname
     0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }      0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }
     ' dup >definer      ' dup >definer
     case      case
Line 520 
Line 527 
         [ ' flocal >definer ] literal          [ ' flocal >definer ] literal
         OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF          OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
         -&32 throw          -&32 throw
     endcase ; immediate      endcase ;
 interpretation:  interpret/compile: TO ( c|w|d|r "name" -- ) \ core-ext,local
     ' dup >definer [ ' locals-wordlist >definer ] literal =  
     if  
         >body !  
     else  
         -&32 throw  
     endif ;  
   
 : locals|  : locals|
     \ don't use 'locals|'! use '{'! A portable and free '{'      \ don't use 'locals|'! use '{'! A portable and free '{'

Generate output suitable for use with a patch program
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.24
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help