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 3e541a80ceba02e7945753fa6221ae479214905d..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>
 
@@ -25,6 +25,7 @@ SYNTAX: $ scan-word expand-literal >vector ;
 SYNTAX: $[ parse-quotation with-datastack >vector ;
 SYNTAX: ${ \ } [ expand-literals ] parse-literal ;
 SYNTAX: flags{
-    "}" [ parse-word ] map-tokens
-    expand-literals
-    0 [ bitor ] reduce suffix! ;
+    \ } [
+        expand-literals
+        0 [ bitor ] reduce
+    ] parse-literal ;