From bf79c1abd1a15e10faa75fc910d38e911b6cca70 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 24 Oct 2019 21:47:19 -0500 Subject: [PATCH] sequences: add glue-as and surround-as --- core/sequences/sequences.factor | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 9ad3aca2c1..bc729bb10e 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -377,8 +377,12 @@ PRIVATE> : surround ( seq1 seq2 seq3 -- newseq ) swapd 3append ; inline +: surround-as ( seq1 seq2 seq3 exemplar -- newseq ) [ swapd ] dip 3append-as ; inline + : glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline +: glue-as ( seq1 seq2 seq3 exemplar -- newseq ) swapd 3append-as ; inline + : change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b ) [ [ nth ] dip call ] 2keepd set-nth-unsafe ; inline