summaryrefslogtreecommitdiff
path: root/module/language/tree-il/optimize.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-05-31 22:05:41 +0200
committerAndy Wingo <wingo@pobox.com>2020-05-31 22:05:41 +0200
commit4c10ea0e5780d9eb3ad26bfe218a0c72030f15b2 (patch)
tree136d6bd860cd3a70c24f43fb09038c7ba8287fda /module/language/tree-il/optimize.scm
parent411954c96116cf03394d7f886cf5a6d4a803ec5e (diff)
downloadguile-4c10ea0e5780d9eb3ad26bfe218a0c72030f15b2.tar.gz
Fix bug where private bindings would never be sealed
* module/language/tree-il/optimize.scm (make-optimizer): Fix plumbing of -Oseal-private-bindings / -O3.
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r--module/language/tree-il/optimize.scm2
1 files changed, 1 insertions, 1 deletions
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))