Diff for /gforth/cross.fs between versions 1.181 and 1.182

version 1.181, 2012/03/09 21:16:22 version 1.182, 2012/05/09 22:23:52
Line 2649  Defer instant-interpret-does>-hook  ' no Line 2649  Defer instant-interpret-does>-hook  ' no
   
 T has? primcentric H [IF]  T has? primcentric H [IF]
 : does-resolved ( ghost -- )  : does-resolved ( ghost -- )
   \    g>xt dup T >body H alit, compile call T cell+ @ a, H ;
     compile does-exec g>xt T a, H ;      compile does-exec g>xt T a, H ;
 [ELSE]  [ELSE]
 : does-resolved ( ghost -- )  : does-resolved ( ghost -- )

Removed from v.1.181  
changed lines
  Added in v.1.182


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