basis: use lint.vocabs tool to trim using lists

[factor.git] / basis / literals / literals.factor

diff --git a/basis/literals/literals.factor b/basis/literals/literals.factor
index 42a7ab9668a68dc2fb5912d28a6c3b4f56f0a83b..4813f0d15cd1e860ddb0a999570bb1ff79b57e21 100644 (file)
--- a/basis/literals/literals.factor
+++ b/basis/literals/literals.factor
@@ -1,6 +1,6 @@
 ! (c) Joe Groff, see license for details
-USING: accessors combinators continuations fry kernel lexer
-math parser quotations sequences vectors words words.alias ;
+USING: accessors continuations fry kernel lexer math parser
+sequences vectors words words.alias ;
 IN: literals
 
 <PRIVATE
@@ -17,7 +17,7 @@ IN: literals
     ] with-datastack ;
 
 : expand-literals ( seq -- seq' )
-    [ [ { } ] dip expand-literal ] map concat ;
+    { } [ expand-literal ] reduce ;
 
 PRIVATE>