From: Alexander Ilin Date: Thu, 6 Oct 2022 14:03:18 +0000 (+0200) Subject: sequences: fix stack effect declarations for when-empty and unless-empty X-Git-Tag: 0.99~1058 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=0910aef45038c99bfaf6d42b80b99c70c9fdc312 sequences: fix stack effect declarations for when-empty and unless-empty --- diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 91e231b190..b3c5564764 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -31,9 +31,8 @@ M: sequence shorten 2dup length < [ set-length ] [ 2drop ] if ; inline : if-empty ( ..a seq quot1: ( ..a -- ..b ) quot2: ( ..a seq -- ..b ) -- ..b ) [ dup empty? ] [ [ drop ] prepose ] [ ] tri* if ; inline -: when-empty ( seq quot -- ) [ ] if-empty ; inline - -: unless-empty ( seq quot -- ) [ ] swap if-empty ; inline +: when-empty ( ... seq quot: ( ... -- obj ) -- ... seq/obj ) [ ] if-empty ; inline +: unless-empty ( ... seq quot: ( ... seq -- ... ) -- ... ) [ ] swap if-empty ; inline : delete-all ( seq -- ) 0 swap set-length ;