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

[factor.git] / core / locals / rewrite / rewrite.factor

diff --git a/core/locals/rewrite/rewrite.factor b/core/locals/rewrite/rewrite.factor
index 1d72c2aaf1b755219435a6c0414d17b7d12f0a30..cbd8bf9d9a9e1d0df8b69ed2c3fa8e42422505b7 100644 (file)
--- 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 ;