From d283eac921c300a34c8881725b1628db8eacca17 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 30 Nov 2011 22:47:20 -0800 Subject: [PATCH] combinators.smart: Tell the stack checker that the return values from inputs/ouputs are input-parameters Fixes #435 --- basis/combinators/smart/smart.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/basis/combinators/smart/smart.factor b/basis/combinators/smart/smart.factor index 4311252c22..8e50ed8ef7 100644 --- 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