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] |