From ca6fc5edc61696f11446e5cdd659beeff33bae43 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 6 Mar 2008 10:18:46 -0600
Subject: [PATCH] default constructor was not sticking around after USEing a
 vocab

---
 extra/singleton/singleton.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extra/singleton/singleton.factor b/extra/singleton/singleton.factor
index 3a9af90071..b745e8f902 100644
--- a/extra/singleton/singleton.factor
+++ b/extra/singleton/singleton.factor
@@ -1,9 +1,10 @@
 ! Copyright (C) 2007 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel parser quotations tuples words ;
+USING: kernel parser quotations prettyprint tuples words ;
 IN: singleton
 
 : SINGLETON:
     CREATE-CLASS
     dup { } define-tuple-class
+    dup unparse create-in reset-generic
     dup construct-empty 1quotation define ; parsing