Consistent edit-hook variable access
parent
58a44f12e5
commit
3ca9fc926e
|
@ -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* ;
|
||||
|
|
Loading…
Reference in New Issue