Fix construct-empty transform

db4
Doug Coleman 2008-01-24 23:07:14 -06:00
parent 0b4be5f0a2
commit 9cc5f5c78e
1 changed files with 1 additions and 1 deletions
core/inference/transforms

View File

@ -74,7 +74,7 @@ M: pair (bitfield-quot) ( spec -- quot )
dup tuple-size [ <tuple> ] 2curry
swap infer-quot
] [
\ construct-empty declared-infer
\ construct-empty 1 1 <effect> make-call-node
] if
] "infer" set-word-prop