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

Revert "classes.singleton: fix "summary" of singletons. Fixes #145." 

This reverts commit d820c86974.
db4
John Benediktsson 2011-09-19 17:46:52 -07:00
parent ac75393fbd
commit d142dbb456
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/classes/singleton/singleton.factor
View File

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