summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordcs <dcs@FreeBSD.org>2000-06-16 05:04:05 +0000
committerdcs <dcs@FreeBSD.org>2000-06-16 05:04:05 +0000
commita916ed2bd76dedfa8f866ef60cb59170eecb48dd (patch)
tree7b64af7181dce0b293bf1946fd8c5380c93fed59
parentc212f66e85f1a5b4106672332346e4bbd440beb1 (diff)
downloadFreeBSD-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 "?".
-rw-r--r--sys/boot/common/interp_forth.c4
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");
OpenPOWER on IntegriCloud