From f830dc2e79fa63aab9927d2f447e9b46204fd92d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 21 Aug 2022 23:19:44 -0400 Subject: [PATCH] sequences.extras: fix stack effect if you develop with `disable-optimizer` it's faster but doesn't catch these kind of errors --- extra/sequences/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index ee670e3954..83320228b9 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -815,7 +815,7 @@ INSTANCE: step-slice virtual-sequence : ??prev ( n seq -- obj/f ? ) [ 1 - ] dip ??nth ; inline : prev-of ( seq n -- obj ) 1 - nth-of ; inline : ?prev-of ( seq n -- obj/f ) 1 - ?nth-of ; inline -: ??prev-of ( seq n -- obj/f ) 1 - ??nth-of ; inline +: ??prev-of ( seq n -- obj/f ? ) 1 - ??nth-of ; inline : prev-identity ( i seq -- identity i seq ) 2dup ??prev [ drop 0 ] unless -rot ; inline -- 2.34.1