[gforth] / gforth / kernel / comp.fs  

gforth: gforth/kernel/comp.fs

Diff for /gforth/kernel/comp.fs between version 1.101 and 1.102

version 1.101, Sun Apr 11 15:37:22 2010 UTC version 1.102, Sun Apr 18 06:18:37 2010 UTC
Line 304 
Line 304 
 : !does    ( addr -- ) \ gforth store-does  : !does    ( addr -- ) \ gforth store-does
     latestxt does-code! ;      latestxt does-code! ;
   
 \ !! unused, but ifdefed/gosted in some places  \ : (does>)  ( R: addr -- )
 : (does>)  ( R: addr -- )  \     r> cfaligned /does-handler + !does ; \ !! no gforth-native
     r> cfaligned /does-handler + !does ; \ !! no gforth-native  
   \ \ !! unused, but ifdefed/gosted in some places
 \ !! unused, but ifdefed/gosted in some places  \ : (does>2)  ( addr -- )
 : (does>2)  ( addr -- )  \     cfaligned /does-handler + !does ;
     cfaligned /does-handler + !does ;  
   
 : (compile) ( -- ) \ gforth-obsolete: dummy  : (compile) ( -- ) \ gforth-obsolete: dummy
     true abort" (compile) doesn't work, use POSTPONE instead" ;      true abort" (compile) doesn't work, use POSTPONE instead" ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help