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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/editors/editors.factor
View File

@ -27,7 +27,8 @@ SYMBOL: edit-hook
: edit-location ( file line -- ) : edit-location ( file line -- )
>r (normalize-path) r> >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 -- ) : edit ( defspec -- )
where [ first2 edit-location ] when* ; where [ first2 edit-location ] when* ;