Diff for /gforth/wordinfo.fs between versions 1.14 and 1.15

version 1.14, 1997/07/06 14:29:34 version 1.15, 1998/05/13 16:47:24
Line 63 Line 63
   
 [IFDEF] forthstart  [IFDEF] forthstart
 : xtprim? ( xt -- flag )  : xtprim? ( xt -- flag )
         forthstart u< ;      forthstart dictionary-end within ; \ !! does not work for CODE words
 [ELSE]  [ELSE]
 : xtprim? ( xt -- flag )  : xtprim? ( xt -- flag )
         dup >body swap >code-address = ;                      dup >body swap >code-address = ; \ !! works only for indirect threaded code
                                        \ !! does not work for primitives
 [THEN]  [THEN]
 : prim? ( nfa -- flag )  : prim? ( nfa -- flag )
         name>int xtprim? ;          name>int xtprim? ;

Removed from v.1.14  
changed lines
  Added in v.1.15


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