factor: trim using lists

[factor.git] / extra / classes / struct / vectored / vectored.factor

diff --git a/extra/classes/struct/vectored/vectored.factor b/extra/classes/struct/vectored/vectored.factor
index a9be5fe966051acfa4bd16d35b21ba0a9f5be5fa..01b624254fc2256ff96f3b2805608ee242cf8073 100644 (file)
--- a/extra/classes/struct/vectored/vectored.factor
+++ b/extra/classes/struct/vectored/vectored.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors classes.struct classes.tuple combinators fry
-functors kernel locals macros math parser quotations sequences
+USING: accessors classes.struct classes.tuple combinators
+functors kernel math parser quotations sequences
 sequences.private slots specialized-arrays words ;
 IN: classes.struct.vectored
 
@@ -41,7 +41,7 @@ MACRO: (vectored-slots) ( struct-class -- quot: ( n -- slots... ) )
 
 MACRO: (vectored-element>) ( struct-class -- quot: ( elt -- struct ) )
     [ struct-slots [ name>> reader-word 1quotation ] map ] keep
-    '[ _ cleave _ <struct-boa> ] ;
+    '[ _ cleave _ boa ] ;
 
 SLOT: (n)
 SLOT: (vectored)