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

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index f77c32d57e4d8034b2b166d3144d3d2d6db3a210..b1d6e3135958ee473fab8f9bae92639d11d3eb04 100644 (file)
--- 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