Diff for /gforth/kernel/comp.fs between versions 1.64 and 1.65

version 1.64, 2004/08/26 15:50:44 version 1.65, 2004/08/27 15:53:51
Line 263  has? peephole [IF] Line 263  has? peephole [IF]
 : !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
   
 : (does>1)  ( addr r:retaddr -- )  
     rdrop cfaligned /does-handler + !does ; \ !! no tail-call optimization  
   
 : (does>2)  ( addr -- )  : (does>2)  ( addr -- )
     cfaligned /does-handler + !does ;      cfaligned /does-handler + !does ;
   

Removed from v.1.64  
changed lines
  Added in v.1.65


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