Consistent edit-hook variable access

2008-10-17 16:55:38 -05:00 · 2008-10-17 16:55:38 -05:00 · 3ca9fc926e
parent 58a44f12e5
commit 3ca9fc926e
1 changed files with 2 additions and 1 deletions
--- a/basis/editors/editors.factor
+++ b/basis/editors/editors.factor
@ -27,7 +27,8 @@ SYMBOL: edit-hook

 : edit-location ( file line -- )
    >r (normalize-path) r>
-    edit-hook get [ call ] [ no-edit-hook edit-location ] if* ;
+    edit-hook get-global
+    [ call ] [ no-edit-hook edit-location ] if* ;

 : edit ( defspec -- )
    where [ first2 edit-location ] when* ;