From 18b99cc9b77076e4727f94edf30290b95047e237 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 21 Mar 2021 21:07:53 -0700 Subject: [PATCH] locals.rewrite: use [nsequence] instead of nsequence. --- core/locals/rewrite/rewrite.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/locals/rewrite/rewrite.factor b/core/locals/rewrite/rewrite.factor index a783fa85eb..1d72c2aaf1 100644 --- a/core/locals/rewrite/rewrite.factor +++ b/core/locals/rewrite/rewrite.factor @@ -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 ; -- 2.34.1