|
version 1.9, 1997/08/31 19:31:29
|
version 1.11, 1998/12/08 22:02:46
|
|
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 ] |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to look.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth