From 4896d6b9a31531d5a114b339662808402fb8a992 Mon Sep 17 00:00:00 2001
From: Joe Groff <joe@victoria.(none)>
Date: Wed, 12 Aug 2009 09:37:39 -0400
Subject: [PATCH] struct boa

---
 extra/classes/struct/struct.factor | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/extra/classes/struct/struct.factor b/extra/classes/struct/struct.factor
index 94d3b625e8..94932f89d9 100644
--- a/extra/classes/struct/struct.factor
+++ b/extra/classes/struct/struct.factor
@@ -1,8 +1,9 @@
 ! (c)Joe Groff bsd license
 USING: accessors alien alien.c-types byte-arrays classes
 classes.c-types classes.parser classes.tuple
-classes.tuple.parser classes.tuple.private fry kernel
-kernel.private libc make math math.order sequences slots
+classes.tuple.parser classes.tuple.private combinators
+combinators.smart fry generalizations kernel kernel.private
+libc macros make math math.order quotations sequences slots
 slots.private words ;
 IN: classes.struct
 
@@ -33,6 +34,19 @@ M: struct-class new
     dup "prototype" word-prop
     [ >c-ptr clone swap memory>struct ] [ <struct> ] if* ; inline
 
+MACRO: <struct-boa> ( class -- quot: ( ... -- struct ) )
+    [
+        [ \ <struct> [ ] 2sequence ]
+        [
+            "struct-slots" word-prop
+            [ length \ ndip ]
+            [ [ name>> setter-word 1quotation ] map \ spread ] bi
+        ] bi
+    ] [ ] output>sequence ;
+
+M: struct-class boa
+    <struct-boa> ; inline
+
 ! Struct slot accessors
 
 M: struct-class reader-quot