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 650e7e61b04759c1d39d5af2ea6103cd6a1eed00..01b624254fc2256ff96f3b2805608ee242cf8073 100644 (file)
--- a/extra/classes/struct/vectored/vectored.factor
+++ b/extra/classes/struct/vectored/vectored.factor
@@ -1,6 +1,7 @@
-! (c)2009 Joe Groff bsd license
-USING: accessors classes.struct classes.tuple combinators fry
-functors kernel locals macros math parser quotations sequences
+! Copyright (C) 2009 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors classes.struct classes.tuple combinators
+functors kernel math parser quotations sequences
 sequences.private slots specialized-arrays words ;
 IN: classes.struct.vectored
 
@@ -40,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)