Make FORGET: M\ ... work
parent
24d854fb8e
commit
c9defa6494
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2006, 2009 Slava Pestov.
|
! Copyright (C) 2006, 2009 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel sequences namespaces assocs math ;
|
USING: kernel sequences namespaces assocs math accessors ;
|
||||||
IN: definitions
|
IN: definitions
|
||||||
|
|
||||||
MIXIN: definition
|
MIXIN: definition
|
||||||
|
@ -41,6 +41,8 @@ GENERIC: forget* ( defspec -- )
|
||||||
|
|
||||||
M: f forget* drop ;
|
M: f forget* drop ;
|
||||||
|
|
||||||
|
M: wrapper forget* wrapped>> forget* ;
|
||||||
|
|
||||||
SYMBOL: forgotten-definitions
|
SYMBOL: forgotten-definitions
|
||||||
|
|
||||||
: forgotten-definition ( defspec -- )
|
: forgotten-definition ( defspec -- )
|
||||||
|
|
Loading…
Reference in New Issue