From b42a1cc7463cad29d20d6beefcff02fa1ac3534a Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 7 Jul 2009 15:29:16 -0500
Subject: [PATCH] fix struct-vectors

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

diff --git a/basis/struct-vectors/struct-vectors.factor b/basis/struct-vectors/struct-vectors.factor
index 252a46d640..974fa1d452 100644
--- a/basis/struct-vectors/struct-vectors.factor
+++ b/basis/struct-vectors/struct-vectors.factor
@@ -13,11 +13,11 @@ TUPLE: struct-vector
     [ <struct-array> 0 ] keep struct-vector boa ; inline
 
 M: struct-vector new-sequence
-    [ c-type>> <struct-array> ] [ [ >fixnum ] [ c-type>> ] bi ] 2bi
+    [ c-type>> <struct-array> ] [ [ >fixnum ] [ c-type>> ] bi* ] 2bi
     struct-vector boa ;
 
 M: struct-vector contract 2drop ;
 
 M: struct-array new-resizable c-type>> <struct-vector> ;
 
-INSTANCE: struct-vector growable
\ No newline at end of file
+INSTANCE: struct-vector growable