2006-08-02 15:17:13 -04:00
|
|
|
! Copyright (C) 2006 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
IN: definitions
|
2006-08-02 16:53:26 -04:00
|
|
|
USING: kernel sequences ;
|
2006-08-02 15:17:13 -04:00
|
|
|
|
|
|
|
GENERIC: see ( defspec -- )
|
|
|
|
|
|
|
|
GENERIC: where ( defspec -- loc )
|
|
|
|
|
|
|
|
GENERIC: subdefs ( defspec -- seq )
|
|
|
|
|
|
|
|
: see-subdefs ( word -- ) subdefs [ see ] each ;
|
|
|
|
|
|
|
|
GENERIC: forget ( defspec -- )
|
|
|
|
|
|
|
|
GENERIC: synopsis ( defspec -- str )
|
2006-08-24 23:19:22 -04:00
|
|
|
|
|
|
|
TUPLE: no-edit-hook ;
|
|
|
|
|
|
|
|
SYMBOL: edit-hook
|
|
|
|
|
|
|
|
: edit ( defspec -- )
|
|
|
|
edit-hook get [ call ] [ <no-edit-hook> throw ] if* ;
|