diff options
author | Andy Wingo <wingo@pobox.com> | 2020-05-31 22:05:41 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-05-31 22:05:41 +0200 |
commit | 4c10ea0e5780d9eb3ad26bfe218a0c72030f15b2 (patch) | |
tree | 136d6bd860cd3a70c24f43fb09038c7ba8287fda /module/language/tree-il/optimize.scm | |
parent | 411954c96116cf03394d7f886cf5a6d4a803ec5e (diff) | |
download | guile-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.scm | 2 |
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)) |