Fix editor integration

2008-03-27 18:00:55 -05:00 · 2008-03-27 18:00:55 -05:00 · 7616eefbfc
parent c19b02a7b9
commit 7616eefbfc
1 changed files with 2 additions and 5 deletions
--- a/extra/editors/editors.factor
+++ b/extra/editors/editors.factor
@ -25,11 +25,8 @@ SYMBOL: edit-hook
    require ;

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

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