From 9cc5f5c78ed1ed0013fab524081de5b95ce7252a Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@gk.(none)>
Date: Thu, 24 Jan 2008 23:07:14 -0600
Subject: [PATCH] Fix construct-empty transform

---
 core/inference/transforms/transforms.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/inference/transforms/transforms.factor b/core/inference/transforms/transforms.factor
index eabe4b8c2a..c4eeb98145 100755
--- 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