24 lines
478 B
Factor
24 lines
478 B
Factor
! Copyright (C) 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: definitions
|
|
USING: kernel sequences ;
|
|
|
|
GENERIC: see ( defspec -- )
|
|
|
|
GENERIC: where ( defspec -- loc )
|
|
|
|
GENERIC: subdefs ( defspec -- seq )
|
|
|
|
: see-subdefs ( word -- ) subdefs [ see ] each ;
|
|
|
|
GENERIC: forget ( defspec -- )
|
|
|
|
GENERIC: synopsis ( defspec -- str )
|
|
|
|
TUPLE: no-edit-hook ;
|
|
|
|
SYMBOL: edit-hook
|
|
|
|
: edit ( defspec -- )
|
|
edit-hook get [ call ] [ <no-edit-hook> throw ] if* ;
|