combinators.smart: Tell the stack checker that the return values from inputs/ouputs...

Fixes #435

diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor
index 4311252c22ab0d74f67c9f1cf6dc23604caffbe1..8e50ed8ef74bb9adaeb9ddc1e8a6650535f637b8 100644 (file)
--- a/basis/combinators/smart/smart.factor
+++ b/basis/combinators/smart/smart.factor
@@ -27,6 +27,8 @@ IDENTITY-MEMO: inputs/outputs ( quot -- in out )
         [ [ in>> ] [ out>> ] bi [ length apply-object ] bi@ ] bi*
     ] [
         \ inputs/outputs dup required-stack-effect apply-word/effect
+        pop-d pop-d swap
+        [ [ input-parameter swap set-known ] [ push-d ] bi ] bi@
     ] if*
 ] "special" set-word-prop