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

version 1.12, 1999/01/03 21:48:37 version 1.13, 2000/05/27 09:41:28
Line 52  has? rom Line 52  has? rom
     dup [ unlock rom-dictionary area lock ]       dup [ unlock rom-dictionary area lock ] 
     literal literal within      literal literal within
     IF      IF
         >name dup ?? <>          >head-noprim dup ?? <>
     ELSE      ELSE
         forth-wordlist @ (look)          forth-wordlist @ (look)
     THEN ;      THEN ;
 [ELSE]  [ELSE]
 : look ( cfa -- lfa flag )  : look ( cfa -- lfa flag )
     >name dup ??? <> ;      >head-noprim dup ??? <> ;
 [THEN]  [THEN]
   
 [ELSE]  [ELSE]
   
 : PrimStart ['] true >name ;  : PrimStart ['] true >head-noprim ;
   
 : look ( cfa -- lfa flag )  : look ( cfa -- lfa flag )
     dup in-dictionary?      dup in-dictionary?
     IF      IF
         >name dup ??? <>          >head-noprim dup ??? <>
     ELSE      ELSE
         PrimStart (look)          PrimStart (look)
     THEN ;      THEN ;
   
 [THEN]  [THEN]
 [THEN]  [THEN]
   
   : >head ( cfa -- nt|0 ) \ gforth to-head
       \G tries to find the name token nt of the word represented by cfa;
       \G returns 0 if it fails.  This word is not absolutely reliable,
       \G it may give false positives and produce wrong nts.
       look and ;
   
   ' >head ALIAS >name \ gforth to-name
   \G old name of @code{>head}

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


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