edit-vocab word

2008-02-24 17:40:28 -06:00 · 2008-02-24 17:40:28 -06:00 · 425fd8e551
parent d2c5f28b65
commit 425fd8e551
1 changed files with 3 additions and 0 deletions
--- a/extra/editors/editors.factor
+++ b/extra/editors/editors.factor
@ -35,6 +35,9 @@ SYMBOL: edit-hook
 : edit ( defspec -- )
    where [ first2 edit-location ] when* ;

+: edit-vocab ( name -- )
+    vocab-source-path 1 edit-location ;
+
 : :edit ( -- )
    error get delegates [ parse-error? ] find-last nip [
        dup parse-error-file source-file-path ?resource-path