combinators.smart: Tell the stack checker that the return values from inputs/ouputs are input-parameters

Fixes #435
db4
Doug Coleman 2011-11-30 22:47:20 -08:00
parent 3ba787b277
commit d283eac921
1 changed files with 2 additions and 0 deletions

View File

@ -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