Fix primitive eta-expansion construction.

This allows some eta-expansion inlinings that wouldn't have worked otherwise.
stamourv · Oct 29, 2011 · f367819 · f367819
1 parent 40553af
commit f367819
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/compiler/primitives.rkt b/compiler/primitives.rkt
@@ -40,8 +40,10 @@
   (set-node-children! r (list call))
   ;; hidden. you need to know it to get it
   (define eta-id  (generate-temporary (var-id prim-var)))
-  (define eta-var (make-global-var eta-id r))
+  (define eta-var (make-global-var eta-id #f))
   (define def     (make-def #f (list r) eta-var))
+  (fix-children-parent! def)
+  (set-var-def! eta-var def)
   (add-extra-code def)
   eta-var)