misc/kforth: Store proper dictionary address.

This commit is contained in:
2018-06-05 15:41:17 -07:00
parent 5788c52ff3
commit 342bacdf01
+1 -1
View File
@@ -1629,7 +1629,7 @@ init_dict(System *sys)
sys->dict = new Builtin((const char *)"*", 1, sys->dict, mul);
sys->dict = new Builtin((const char *)"!", 1, sys->dict, store);
sys->dict = new Address((const char *)"ARENA", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->arena));
sys->dict = new Address((const char *)"DICT", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->dict));
sys->dict = new Address((const char *)"DICT", 4, sys->dict, reinterpret_cast<KF_ADDR>(&sys->dict));
}
bool