From 46c417370f1f6b8ab1592ce6ee0b95bff0fa367b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 19 Sep 2011 16:49:11 -0700
Subject: [PATCH] classes.singleton: fix "summary" of singletons. Fixes #145.
---
core/classes/singleton/singleton.factor | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/core/classes/singleton/singleton.factor b/core/classes/singleton/singleton.factor
index 02ca405145..b70e3e074a 100644
--- a/core/classes/singleton/singleton.factor
+++ b/core/classes/singleton/singleton.factor
@@ -1,8 +1,8 @@
! 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 kernel sequences
-words ;
+classes.predicate classes.predicate.private definitions kernel
+sequences words ;
IN: classes.singleton
<PRIVATE
@@ -25,4 +25,7 @@ M: singleton-class (classes-intersect?)
over singleton-class? [ eq? ] [ call-next-method ] if ;
M: singleton-class predicate-quot
- singleton-predicate-quot ;
\ No newline at end of file
+ singleton-predicate-quot ;
+
+M: singleton-class definer
+ drop \ SINGLETON: f ;