steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

definitions: make FORGET: M\ update compiled xref correctly

db4
Slava Pestov 2009-09-28 03:04:53 -05:00
parent 64a7fd0a4d
commit eb6933ebfc
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/definitions/definitions.factor
View File

@ -39,10 +39,6 @@ GENERIC: set-where ( loc defspec -- )
GENERIC: forget* ( defspec -- ) GENERIC: forget* ( defspec -- )
M: f forget* drop ;
M: wrapper forget* wrapped>> forget* ;
SYMBOL: forgotten-definitions SYMBOL: forgotten-definitions
: forgotten-definition ( defspec -- ) : forgotten-definition ( defspec -- )
@ -50,6 +46,10 @@ SYMBOL: forgotten-definitions
: forget ( defspec -- ) [ forgotten-definition ] [ forget* ] bi ; : forget ( defspec -- ) [ forgotten-definition ] [ forget* ] bi ;
M: f forget* drop ;
M: wrapper forget* wrapped>> forget ;
: forget-all ( definitions -- ) [ forget ] each ; : forget-all ( definitions -- ) [ forget ] each ;
GENERIC: definer ( defspec -- start end ) GENERIC: definer ( defspec -- start end )

17
core/generic/generic-tests.factor
View File

@ -3,7 +3,7 @@ classes.tuple classes.union compiler.units continuations
definitions eval generic generic.math generic.standard definitions eval generic generic.math generic.standard
hashtables io io.streams.string kernel layouts math math.order hashtables io io.streams.string kernel layouts math math.order
namespaces parser prettyprint quotations sequences sorting namespaces parser prettyprint quotations sequences sorting
strings tools.test vectors words ; strings tools.test vectors words generic.single ;
IN: generic.tests IN: generic.tests
GENERIC: foobar ( x -- y ) GENERIC: foobar ( x -- y )
@ -197,3 +197,18 @@ M: slice foozul ;
real \ <=> method real \ <=> method
eq? eq?
] unit-test ] unit-test
! FORGET: on method wrappers
GENERIC: forget-test ( a -- b )
M: integer forget-test 3 + ;
[ ] [ "IN: generic.tests USE: math FORGET: M\\ integer forget-test" eval( -- ) ] unit-test
[ { } ] [
\ + compiled-usage keys
[ method-body? ] filter
[ "method-generic" word-prop \ forget-test eq? ] filter
] unit-test
[ 10 forget-test ] [ no-method? ] must-fail-with