steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

elevate-erg
Doug Coleman 2018-07-04 20:19:02 -05:00
parent e01d1133be
commit 6df7360ec9
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/vocabs/loader/loader.factor
View File

@ -9,13 +9,15 @@ SYMBOL: vocab-roots
SYMBOL: add-vocab-root-hook SYMBOL: add-vocab-root-hook
CONSTANT: default-vocab-roots {
"resource:core"
"resource:basis"
"resource:extra"
"resource:work"
}
[ [
V{ default-vocab-roots V{ } like vocab-roots set-global
"resource:core"
"resource:basis"
"resource:extra"
"resource:work"
} clone vocab-roots set-global
[ drop ] add-vocab-root-hook set-global [ drop ] add-vocab-root-hook set-global
] "vocabs.loader" add-startup-hook ] "vocabs.loader" add-startup-hook