Diff for /gforth/ans-report.fs between versions 1.6 and 1.8

version 1.6, 2000/09/23 15:46:51 version 1.8, 2003/01/10 16:57:25
Line 133  ans-report-words definitions Line 133  ans-report-words definitions
 : replace-word ( xt cfa -- )  : replace-word ( xt cfa -- )
     \ replace word at cfa with xt. !! This is quite general-purpose      \ replace word at cfa with xt. !! This is quite general-purpose
     \ and should migrate elsewhere.      \ and should migrate elsewhere.
     dodefer: over code-address!      \  the following no longer works with primitive-centric hybrid threading:
     >body ! ;      \    dodefer: over code-address!
       \    >body ! ;
       dup @ docol: <> -12 and throw \ for colon defs only
       >body ['] branch xt>threaded over !
       cell+ >r >body r@ - r> ! ;
   
 forth definitions  forth definitions
 ans-report-words  ans-report-words

Removed from v.1.6  
changed lines
  Added in v.1.8


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