vocabs.loader: make a word for the default vocabs.

2018-07-04 20:19:02 -05:00 · 2018-07-04 20:19:02 -05:00 · 6df7360ec9
parent e01d1133be
commit 6df7360ec9
1 changed files with 8 additions and 6 deletions
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@ -9,13 +9,15 @@ SYMBOL: vocab-roots

 SYMBOL: add-vocab-root-hook

+CONSTANT: default-vocab-roots {
+    "resource:core"
+    "resource:basis"
+    "resource:extra"
+    "resource:work"
+}
+
 [
-    V{
-        "resource:core"
-        "resource:basis"
-        "resource:extra"
-        "resource:work"
-    } clone vocab-roots set-global
+    default-vocab-roots V{ } like vocab-roots set-global

    [ drop ] add-vocab-root-hook set-global
 ] "vocabs.loader" add-startup-hook