Permalink
Browse files

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

… inputs/ouputs are input-parameters

Fixes #435
  • Loading branch information...
1 parent c3dcf43 commit 5a01aec3622b7dfd90e3ea85104a87e1d7823c44 @erg erg committed Dec 1, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 basis/combinators/smart/smart.factor
View
2 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

0 comments on commit 5a01aec

Please sign in to comment.