From 36b2ac97efd94119dbf0aa8618ae6c68265a43b8 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 28 Sep 2020 12:30:15 -0700 Subject: [PATCH] sequences.extras: fix stack effect for filter-all-subseqs. --- extra/sequences/extras/extras.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index de6d8e4790..c0b411b433 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -33,12 +33,12 @@ IN: sequences.extras : map-like ( seq exemplar -- seq' ) '[ _ like ] map ; inline -: filter-all-subseqs-range ( ... seq range quot: ( ... subseq -- ... ) -- seq ) +: filter-all-subseqs-range ( ... seq range quot: ( ... subseq -- ... ? ) -- seq ) [ '[ _ filter ] with map concat ] keepdd map-like ; inline -: filter-all-subseqs ( ... seq quot: ( ... subseq -- ... ) -- seq ) +: filter-all-subseqs ( ... seq quot: ( ... subseq -- ... ? ) -- seq ) [ dup length [1,b] ] dip filter-all-subseqs-range ; inline :: longest-subseq ( seq1 seq2 -- subseq ) -- 2.34.1