From 3d975ea7ab97ee7d6b19798c7c9879ca98676feb Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 31 Aug 2009 19:10:48 -0500
Subject: [PATCH] struct mirrors were not ready yet

---
 basis/mirrors/mirrors.factor | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/basis/mirrors/mirrors.factor b/basis/mirrors/mirrors.factor
index c081e1015e..7190d61240 100644
--- a/basis/mirrors/mirrors.factor
+++ b/basis/mirrors/mirrors.factor
@@ -3,7 +3,8 @@
 USING: accessors arrays assocs classes classes.struct
 classes.struct.prettyprint.private classes.tuple
 classes.tuple.private combinators generic hashtables kernel
-math quotations sequences slots slots.private vectors words ;
+math quotations sequences slots slots.private vectors words
+continuations fry ;
 IN: mirrors
 
 TUPLE: mirror { object read-only } ;
@@ -55,6 +56,3 @@ M: array make-mirror <enum> ;
 M: vector make-mirror <enum> ;
 M: quotation make-mirror <enum> ;
 M: object make-mirror <mirror> ;
-
-M: struct make-mirror struct>assoc
-    [ [ [ name>> ] [ c-type>> ] bi 2array ] dip ] assoc-map ;