! Copyright (C) 2008, 2010 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: classes classes.algebra classes.algebra.private
-classes.predicate classes.predicate.private definitions kernel
-sequences words ;
+classes.predicate classes.predicate.private kernel sequences
+words ;
IN: classes.singleton
<PRIVATE
over singleton-class? [ eq? ] [ call-next-method ] if ;
M: singleton-class predicate-quot
- singleton-predicate-quot ;
-
-M: singleton-class definer
- drop \ SINGLETON: f ;
+ singleton-predicate-quot ;
\ No newline at end of file