From ba0895aeb2554f03a3f757b4f958b8a2920d95cc Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 21 Mar 2021 21:26:59 -0700 Subject: [PATCH] locals.rewrite: need to like after [nsequence]. --- core/locals/rewrite/rewrite.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 ; -- 2.34.1