steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix editor integration

Slava Pestov 2008-03-27 18:00:55 -05:00
parent c19b02a7b9
commit 7616eefbfc
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/editors/editors.factor
View File

@ -25,11 +25,8 @@ SYMBOL: edit-hook
require ; require ;
: edit-location ( file line -- ) : edit-location ( file line -- )
edit-hook get [ >r current-directory get prepend-path r>
call edit-hook get [ call ] [ no-edit-hook edit-location ] if* ;
] [
no-edit-hook edit-location
] if* ;
: edit ( defspec -- ) : edit ( defspec -- )
where [ first2 edit-location ] when* ; where [ first2 edit-location ] when* ;