From 47ce4c068689fd8b0d75a5efcec78d2418d042c5 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 9 Oct 2022 21:20:17 -0700 Subject: [PATCH] sequences: fix when-empty stack effect. --- core/sequences/sequences.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index b3c5564764..aaebd61708 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -31,7 +31,7 @@ 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: ( ... -- obj ) -- ... seq/obj ) [ ] 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 ; -- 2.34.1