combinators.smart: Clarify stack effect for cleave>array.

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 493b39a9ebcb78d7638f6eb2b7b75204b1cea655..e97c65038c19d9f25def4026fb4eea9cb6dba664 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -67,7 +67,7 @@ M: object infer-known* drop f ;
 : output>array ( quot -- array )
     { } output>sequence ; inline
     
-: cleave>array ( x seq -- array )
+: cleave>array ( obj quots -- array )
     '[ _ cleave ] output>array ; inline
 
 : cleave>sequence ( x seq exemplar -- array )