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

vocabs: remove little used words. 

vocabs:vocab-name* => editors.private:public-vocab-name.
db4
John Benediktsson 2015-06-11 20:04:01 -07:00
parent ccddbebf94
commit 54c4388a68
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/editors/editors.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs calendar continuations debugger
definitions io io.launcher io.pathnames kernel namespaces
prettyprint sequences source-files.errors strings threads
tools.crossref vocabs vocabs.files vocabs.hierarchy
prettyprint sequences source-files.errors splitting strings
threads tools.crossref vocabs vocabs.files vocabs.hierarchy
vocabs.loader vocabs.metadata words ;
IN: editors
@ -53,8 +53,15 @@ M: cannot-find-source error.
DEFER: edit
<PRIVATE
: public-vocab-name ( vocab-spec -- name )
vocab-name ".private" ?tail drop ;
PRIVATE>
: edit-vocab ( vocab -- )
vocab-name* >vocab-link edit ;
public-vocab-name >vocab-link edit ;
GENERIC: edit ( object -- )
@ -89,7 +96,7 @@ M: string edit edit-vocab ;
GENERIC: edit-docs ( object -- )
M: object edit-docs
vocab-name* vocab-docs-path 1 edit-location ;
public-vocab-name vocab-docs-path 1 edit-location ;
M: word edit-docs
dup "help-loc" word-prop
@ -100,7 +107,7 @@ M: word edit-docs
GENERIC: edit-tests ( object -- )
M: object edit-tests
vocab-name* vocab-tests-path 1 edit-location ;
public-vocab-name vocab-tests-path 1 edit-location ;
M: word edit-tests vocabulary>> edit-tests ;

7
core/vocabs/vocabs.factor
View File

@ -41,12 +41,6 @@ M: vocab-link vocab-name name>> ;
M: object vocab-name check-vocab-name ;
: vocab-name* ( vocab-spec -- name )
vocab-name ".private" ?tail drop ;
: private-vocab? ( vocab-spec -- ? )
vocab-name ".private" tail? ;
GENERIC: lookup-vocab ( vocab-spec -- vocab )
M: vocab lookup-vocab ;
@ -148,6 +142,7 @@ INSTANCE: vocab-spec definition-mixin
GENERIC: require ( object -- )
M: vocab require name>> require ;
M: vocab-link require name>> require ;
! When calling "foo.private" require, load "foo" instead, but only when