Diff for /gforth/glocals.fs between versions 1.12 and 1.13

version 1.12, 1995/04/29 14:51:19 version 1.13, 1995/10/07 17:38:15
Line 475  forth definitions Line 475  forth definitions
 : definer! ( definer xt -- )  : definer! ( definer xt -- )
     \ gives the word represented by xt the behaviour associated with definer      \ gives the word represented by xt the behaviour associated with definer
     over 1 and if      over 1 and if
         does-code!          swap [ 1 invert ] literal and does-code!
     else      else
         code-address!          code-address!
     then ;      then ;

Removed from v.1.12  
changed lines
  Added in v.1.13


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