From d6c60258cf61a9a98dffa50ebd074ead645e1158 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 13 Aug 2012 10:32:27 -0700 Subject: [PATCH] editors: these should understand private. --- basis/editors/editors.factor | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor index f07483b6ab..665dd74933 100644 --- a/basis/editors/editors.factor +++ b/basis/editors/editors.factor @@ -56,7 +56,7 @@ M: cannot-find-source error. DEFER: edit : edit-vocab ( vocab -- ) - >vocab-link edit ; + vocab-name* >vocab-link edit ; GENERIC: edit ( object -- ) @@ -90,7 +90,8 @@ M: string edit edit-vocab ; 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 @@ -100,7 +101,8 @@ M: word edit-docs 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 ;