From daff3166ecdb04eed47c1b630185e8d24b4d6181 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Tue, 10 Dec 2019 16:02:31 -0800
Subject: [PATCH] Support easily adding extra dictionaries, e.g. as part of
 platform

---
 asm/forth-dictionary.s | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index 4a789e0..2ad331c 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -6407,7 +6407,7 @@ eword
 dword     VOCABULARY,"VOCABULARY"
           ENTER
           .dword CREATE
-          .dword _COMP_LIT
+dovocab:  .dword _COMP_LIT
           .dword H_FORTH          ; root of all dictionaries
           .dword LAST
           .dword drXT             ; XT of the just-created word
@@ -6421,6 +6421,15 @@ dword     VOCABULARY,"VOCABULARY"
           EXIT
 eword
 
+; H: ( c-addr u -- ) create a new named wordlist definition as per VOCABULARY
+; H: meant for adding more builtin dictionaries (e.g. platform specific dictionaries)
+; H: which are expected to adjust the root to the new wordlist
+hword    dVOCAB,"$VOCAB"
+         ENTER
+         .dword dCREATE
+         JUMP VOCABULARY::dovocab
+eword
+
 .endif
 
 .if 0 ; half-baked