actually pass original ids on to tree-il data types

[bpt/guile.git] / module / language / tree-il / compile-glil.scm

diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index 2b24100..75d3f96 100644 (file)
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -33,7 +33,7 @@
 ;;  lambda -> (nlocs . nexts)
 
 (define (compile-glil x e opts)
-  (let* ((x (make-lambda (tree-il-src x) '() '() x))
+  (let* ((x (make-lambda (tree-il-src x) '() '() '() x))
          (x (optimize! x e opts))
          (allocation (analyze-lexicals x)))
     (values (flatten-lambda x -1 allocation)