Fix construct-empty transform

2008-01-24 23:07:14 -06:00 · 2008-01-24 23:07:14 -06:00 · 9cc5f5c78e
parent 0b4be5f0a2
commit 9cc5f5c78e
1 changed files with 1 additions and 1 deletions
--- a/core/inference/transforms/transforms.factor
+++ b/core/inference/transforms/transforms.factor
@ -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