steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/combinators/smart/smart.factor
View File

@ -27,6 +27,8 @@ IDENTITY-MEMO: inputs/outputs ( quot -- in out )
[ [ in>> ] [ out>> ] bi [ length apply-object ] bi@ ] bi* [ [ in>> ] [ out>> ] bi [ length apply-object ] bi@ ] bi*
] [ ] [
\ inputs/outputs dup required-stack-effect apply-word/effect \ inputs/outputs dup required-stack-effect apply-word/effect
pop-d pop-d swap
[ [ input-parameter swap set-known ] [ push-d ] bi ] bi@
] if* ] if*
] "special" set-word-prop ] "special" set-word-prop