Consistent edit-hook variable access

db4
Slava Pestov 2008-10-17 16:55:38 -05:00
parent 58a44f12e5
commit 3ca9fc926e
1 changed files with 2 additions and 1 deletions

View File

@ -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* ;