From 3ca9fc926e485667f98cdadba3ac5d1ffdd92532 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 17 Oct 2008 16:55:38 -0500
Subject: [PATCH] Consistent edit-hook variable access

---
 basis/editors/editors.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
index 90c40f9bd5..7dfceafe59 100644
--- 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* ;