hints: switch to using instance?.

master
John Benediktsson 2020-09-25 11:11:52 -07:00
parent 96d7da0169
commit dbdf4540bc
1 changed files with 5 additions and 6 deletions

View File

@ -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? ] ;