combinators.smart: Tell the stack checker that the return values from…

… inputs/ouputs are input-parameters Fixes factor#435
x6j8x · Dec 1, 2011 · 5a01aec · 5a01aec
1 parent c3dcf43
commit 5a01aec
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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