diff options
| author | dcs <dcs@FreeBSD.org> | 2000-06-16 05:04:05 +0000 |
|---|---|---|
| committer | dcs <dcs@FreeBSD.org> | 2000-06-16 05:04:05 +0000 |
| commit | a916ed2bd76dedfa8f866ef60cb59170eecb48dd (patch) | |
| tree | 7b64af7181dce0b293bf1946fd8c5380c93fed59 /sys/boot | |
| parent | c212f66e85f1a5b4106672332346e4bbd440beb1 (diff) | |
| download | FreeBSD-src-a916ed2bd76dedfa8f866ef60cb59170eecb48dd.zip FreeBSD-src-a916ed2bd76dedfa8f866ef60cb59170eecb48dd.tar.gz | |
Fix vocabulary juggling so that builtins voc is always searched before
forth vocabulary when initially creating the builtins. FICL 2.05 has a
better way to do this, but this works for now.
Fixes "?".
Diffstat (limited to 'sys/boot')
| -rw-r--r-- | sys/boot/common/interp_forth.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sys/boot/common/interp_forth.c b/sys/boot/common/interp_forth.c index 1cf60c4..251caf1 100644 --- a/sys/boot/common/interp_forth.c +++ b/sys/boot/common/interp_forth.c @@ -244,10 +244,10 @@ bf_init(void) /* make all commands appear as Forth words */ SET_FOREACH(cmdp, Xcommand_set) { ficlBuild((*cmdp)->c_name, bf_command, FW_DEFAULT); - ficlExec(bf_vm, "also forth definitions"); + ficlExec(bf_vm, "forth definitions builtins"); sprintf(create_buf, "builtin: %s", (*cmdp)->c_name); ficlExec(bf_vm, create_buf); - ficlExec(bf_vm, "previous definitions"); + ficlExec(bf_vm, "builtins definitions"); } ficlExec(bf_vm, "only forth definitions"); |
