version 1.9, 1997/08/31 19:31:29
|
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 46 decimal
|
Line 46 decimal
|
[IFUNDEF] look |
[IFUNDEF] look |
has? ec [IF] |
has? ec [IF] |
|
|
has-rom |
has? rom |
[IF] |
[IF] |
: look |
: look |
dup [ unlock rom-dictionary area lock ] |
dup [ unlock rom-dictionary area lock ] |
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] |