hints: switch to using instance?.
parent
96d7da0169
commit
dbdf4540bc
|
@ -1,16 +1,15 @@
|
||||||
! Copyright (C) 2008, 2010 Slava Pestov.
|
! Copyright (C) 2008, 2010 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors arrays assocs byte-arrays byte-vectors classes
|
USING: accessors arrays assocs byte-arrays byte-vectors classes
|
||||||
combinators definitions effects fry generic generic.single
|
combinators definitions fry generic generic.single
|
||||||
generic.standard hashtables io.binary io.encodings
|
generic.standard hashtables io.binary kernel kernel.private math
|
||||||
io.streams.string kernel kernel.private math math.parser
|
math.parser parser sbufs sequences sequences.private splitting
|
||||||
namespaces parser sbufs sequences sequences.private splitting
|
strings vectors words ;
|
||||||
splitting.private strings vectors words ;
|
|
||||||
IN: hints
|
IN: hints
|
||||||
|
|
||||||
GENERIC: specializer-predicate ( spec -- quot )
|
GENERIC: specializer-predicate ( spec -- quot )
|
||||||
|
|
||||||
M: class specializer-predicate predicate-def ;
|
M: class specializer-predicate '[ _ instance? ] ;
|
||||||
|
|
||||||
M: object specializer-predicate '[ _ eq? ] ;
|
M: object specializer-predicate '[ _ eq? ] ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue