DEFER: edit
: edit-vocab ( vocab -- )
- >vocab-link edit ;
+ vocab-name* >vocab-link edit ;
GENERIC: edit ( 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
dup "help-loc" word-prop
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 ;