editors: these should understand private.
parent
e374f2fa19
commit
d6c60258cf
|
@ -56,7 +56,7 @@ M: cannot-find-source error.
|
||||||
DEFER: edit
|
DEFER: edit
|
||||||
|
|
||||||
: edit-vocab ( vocab -- )
|
: edit-vocab ( vocab -- )
|
||||||
>vocab-link edit ;
|
vocab-name* >vocab-link edit ;
|
||||||
|
|
||||||
GENERIC: edit ( object -- )
|
GENERIC: edit ( object -- )
|
||||||
|
|
||||||
|
@ -90,7 +90,8 @@ M: string edit edit-vocab ;
|
||||||
|
|
||||||
GENERIC: edit-docs ( object -- )
|
GENERIC: edit-docs ( object -- )
|
||||||
|
|
||||||
M: object edit-docs vocab-docs-path 1 edit-location ;
|
M: object edit-docs
|
||||||
|
vocab-name* vocab-docs-path 1 edit-location ;
|
||||||
|
|
||||||
M: word edit-docs
|
M: word edit-docs
|
||||||
dup "help-loc" word-prop
|
dup "help-loc" word-prop
|
||||||
|
@ -100,7 +101,8 @@ M: word edit-docs
|
||||||
|
|
||||||
GENERIC: edit-tests ( object -- )
|
GENERIC: edit-tests ( object -- )
|
||||||
|
|
||||||
M: object edit-tests vocab-tests-path 1 edit-location ;
|
M: object edit-tests
|
||||||
|
vocab-name* vocab-tests-path 1 edit-location ;
|
||||||
|
|
||||||
M: word edit-tests vocabulary>> edit-tests ;
|
M: word edit-tests vocabulary>> edit-tests ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue