d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix vocabulary juggling so that builtins voc is always searched before

Browse Source 
forth vocabulary when initially creating the builtins. FICL 2.05 has a
better way to do this, but this works for now.

Fixes "?".
This commit is contained in:
Daniel C. Sobral 2000-06-16 05:04:05 +00:00
parent 625cc84808
commit f102f87438
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sys/boot/common/interp_forth.c
View File

@ -244,10 +244,10 @@ bf_init(void)
/* make all commands appear as Forth words */ /* make all commands appear as Forth words */
SET_FOREACH(cmdp, Xcommand_set) { SET_FOREACH(cmdp, Xcommand_set) {
ficlBuild((*cmdp)->c_name, bf_command, FW_DEFAULT); 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); sprintf(create_buf, "builtin: %s", (*cmdp)->c_name);
ficlExec(bf_vm, create_buf); ficlExec(bf_vm, create_buf);
ficlExec(bf_vm, "previous definitions"); ficlExec(bf_vm, "builtins definitions");
} }
ficlExec(bf_vm, "only forth definitions"); ficlExec(bf_vm, "only forth definitions");