]> gitweb.factorcode.org Git - factor.git/commitdiff
locals.rewrite: use [nsequence] instead of nsequence.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Mar 2021 04:07:53 +0000 (21:07 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Mar 2021 04:07:53 +0000 (21:07 -0700)
core/locals/rewrite/rewrite.factor

index a783fa85ebdf19e94ccea1cdf1c5b0053d94772d..1d72c2aaf1b755219435a6c0414d17b7d12f0a30 100644 (file)
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs classes classes.tuple combinators
 fry.private hashtables kernel locals.backend locals.errors
-locals.types macros.expander make math quotations sequences
-sequences.generalizations sets words ;
+locals.types macros.expander make math memoize.private
+quotations sequences sets words ;
 
 IN: locals.rewrite
 
@@ -52,7 +52,7 @@ GENERIC: rewrite-element ( obj -- )
     [ rewrite-element ] each ;
 
 : rewrite-sequence ( seq -- )
-    [ rewrite-elements ] [ length ] [ 0 head ] tri '[ _ _ nsequence ] % ;
+    [ rewrite-elements ] [ length ] [ 0 head ] tri [nsequence] % ;
 
 M: sequence rewrite-element
     dup rewrite-literal? [ rewrite-sequence ] [ , ] if ;