sequences.extras: fix stack effect

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index ee670e3954763a7575297110047f47c7c98adae6..83320228b9288d56074fd17836a59cb22ca83afa 100644 (file)
--- 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