From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 28 Sep 2020 19:30:15 +0000 (-0700)
Subject: sequences.extras: fix stack effect for filter-all-subseqs.
X-Git-Tag: 0.99~3078
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=36b2ac97efd94119dbf0aa8618ae6c68265a43b8

sequences.extras: fix stack effect for filter-all-subseqs.
---

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 )
     [
         '[ <clumps> _ 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 )