Diff for /gforth/wordinfo.fs between versions 1.19 and 1.20

version 1.19, 2000/05/27 09:41:28 version 1.20, 2000/05/27 18:55:55
Line 31  require look.fs Line 31  require look.fs
 \ the old alias? did not work and it is not used, so I changed  \ the old alias? did not work and it is not used, so I changed
 \ it in many respects - anton  \ it in many respects - anton
 : alias? ( nfa1 -- nfa2|0 )  : alias? ( nfa1 -- nfa2|0 )
     \ if nfa1 is an alias, nfa2 is the name of the original word      \ if nfa1 is an alias, nfa2 is the name of the original word.
       \ if the original word has no name, return 0.
     dup cell+ c@ alias-mask and 0=      dup cell+ c@ alias-mask and 0=
     IF ( nfa1 )      IF ( nfa1 )
         ((name>)) @ >name ( use look instead? )          ((name>)) @ >name
     ELSE      ELSE
         drop 0          drop 0
     THEN ;      THEN ;

Removed from v.1.19  
changed lines
  Added in v.1.20


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