From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 22 Mar 2021 04:26:59 +0000 (-0700)
Subject: locals.rewrite: need to like after [nsequence].
X-Git-Tag: 0.99~2393
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ba0895aeb2554f03a3f757b4f958b8a2920d95cc

locals.rewrite: need to like after [nsequence].
---

diff --git a/core/locals/rewrite/rewrite.factor b/core/locals/rewrite/rewrite.factor
index 1d72c2aaf1..cbd8bf9d9a 100644
--- a/core/locals/rewrite/rewrite.factor
+++ b/core/locals/rewrite/rewrite.factor
@@ -52,7 +52,8 @@ GENERIC: rewrite-element ( obj -- )
     [ rewrite-element ] each ;
 
 : rewrite-sequence ( seq -- )
-    [ rewrite-elements ] [ length ] [ 0 head ] tri [nsequence] % ;
+    [ rewrite-elements ] [ length ] [ 0 head ] tri
+    [ [nsequence] % ] [ [ like ] curry % ] bi ;
 
 M: sequence rewrite-element
     dup rewrite-literal? [ rewrite-sequence ] [ , ] if ;