17 lines
399 B
Factor
17 lines
399 B
Factor
! Copyright (C) 2005, 2007 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: tools
|
|
USING: parser errors kernel namespaces sequences definitions
|
|
io ;
|
|
|
|
TUPLE: no-edit-hook ;
|
|
|
|
SYMBOL: edit-hook
|
|
|
|
: edit-location ( file line -- )
|
|
>r ?resource-path r>
|
|
edit-hook get [ call ] [ <no-edit-hook> throw ] if* ;
|
|
|
|
: edit ( defspec -- )
|
|
where [ first2 edit-location ] when* ;
|