diff options
Diffstat (limited to 'module/language/tree-il/compile-glil.scm')
-rw-r--r-- | module/language/tree-il/compile-glil.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm index e8b699eb5..4ab03bf25 100644 --- a/module/language/tree-il/compile-glil.scm +++ b/module/language/tree-il/compile-glil.scm @@ -65,10 +65,10 @@ (x (optimize! x e opts)) (allocation (analyze-lexicals x))) - (with-fluid* *comp-module* (or (and e (car e)) (current-module)) + (with-fluid* *comp-module* e (lambda () (values (flatten-lambda x #f allocation) - (and e (cons (car e) (cddr e))) + e e))))) |