Cleanup
parent
dd43df655f
commit
adc764efa3
|
@ -3,8 +3,6 @@
|
||||||
USING: kernel sequences namespaces assocs graphs math math.order ;
|
USING: kernel sequences namespaces assocs graphs math math.order ;
|
||||||
IN: definitions
|
IN: definitions
|
||||||
|
|
||||||
MIXIN: definition
|
|
||||||
|
|
||||||
ERROR: no-compilation-unit definition ;
|
ERROR: no-compilation-unit definition ;
|
||||||
|
|
||||||
SYMBOLS: inlined-dependency flushed-dependency called-dependency ;
|
SYMBOLS: inlined-dependency flushed-dependency called-dependency ;
|
||||||
|
@ -42,7 +40,7 @@ GENERIC: set-where ( loc defspec -- )
|
||||||
|
|
||||||
GENERIC: forget* ( defspec -- )
|
GENERIC: forget* ( defspec -- )
|
||||||
|
|
||||||
M: object forget* drop ;
|
M: f forget* drop ;
|
||||||
|
|
||||||
SYMBOL: forgotten-definitions
|
SYMBOL: forgotten-definitions
|
||||||
|
|
||||||
|
@ -53,8 +51,6 @@ SYMBOL: forgotten-definitions
|
||||||
|
|
||||||
: forget-all ( definitions -- ) [ forget ] each ;
|
: forget-all ( definitions -- ) [ forget ] each ;
|
||||||
|
|
||||||
GENERIC: synopsis* ( defspec -- )
|
|
||||||
|
|
||||||
GENERIC: definer ( defspec -- start end )
|
GENERIC: definer ( defspec -- start end )
|
||||||
|
|
||||||
GENERIC: definition ( defspec -- seq )
|
GENERIC: definition ( defspec -- seq )
|
||||||
|
|
Loading…
Reference in New Issue