From 4c10ea0e5780d9eb3ad26bfe218a0c72030f15b2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 31 May 2020 22:05:41 +0200 Subject: [PATCH] Fix bug where private bindings would never be sealed * module/language/tree-il/optimize.scm (make-optimizer): Fix plumbing of -Oseal-private-bindings / -O3. --- module/language/tree-il/optimize.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm index 5efc7eec5..c080bbbc2 100644 --- a/module/language/tree-il/optimize.scm +++ b/module/language/tree-il/optimize.scm @@ -51,7 +51,7 @@ (verify exp) (run-pass! (resolve exp env)) (run-pass! (expand exp)) - (run-pass! (letrectify exp)) + (run-pass! (letrectify exp #:seal-private-bindings? seal?)) (run-pass! (fix-letrec exp)) (run-pass! (peval exp env)) (run-pass! (eta-expand exp))