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

version 1.10, 1997/09/13 12:04:56 version 1.12, 1999/01/03 21:48:37
Line 1 Line 1
 \ LOOK.FS      xt -> lfa                               22may93jaw  \ LOOK.FS      xt -> lfa                               22may93jaw
   
 \ Copyright (C) 1995 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 66  has? rom Line 66  has? rom
 : PrimStart ['] true >name ;  : PrimStart ['] true >name ;
   
 : look ( cfa -- lfa flag )  : look ( cfa -- lfa flag )
     dup dictionary-end forthstart within      dup in-dictionary?
     IF      IF
         PrimStart (look)  
     ELSE  
         >name dup ??? <>          >name dup ??? <>
       ELSE
           PrimStart (look)
     THEN ;      THEN ;
   
 [THEN]  [THEN]

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


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