[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 06/06: Enable closure elision.
From: |
Andy Wingo |
Subject: |
[Guile-commits] 06/06: Enable closure elision. |
Date: |
Fri, 7 Jun 2019 11:06:14 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit 3bbdf223129fe5819d2cec05d577f1ff72b74c18
Author: Andy Wingo <address@hidden>
Date: Fri Jun 7 16:41:19 2019 +0200
Enable closure elision.
* module/language/cps/closure-conversion.scm (convert-one): Elide
closures when possible.
---
module/language/cps/closure-conversion.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/module/language/cps/closure-conversion.scm
b/module/language/cps/closure-conversion.scm
index 0dfd25d..1452212 100644
--- a/module/language/cps/closure-conversion.scm
+++ b/module/language/cps/closure-conversion.scm
@@ -700,7 +700,7 @@ bound to @var{var}, and continue to @var{k}."
;; Known call, no free variables; no closure needed. If the
;; callee is well-known, elide the closure argument entirely.
;; Otherwise pass #f.
- (if (and (intset-ref elidable label) #f) ; Disabled temporarily.
+ (if (intset-ref elidable label)
(have-closure cps #f)
(with-cps cps
($ (with-cps-constants ((false #f))
@@ -847,7 +847,7 @@ bound to @var{var}, and continue to @var{k}."
(let$ term (visit-term term))
(setk label ($kargs names vars ,term))))
(($ $kfun src meta self ktail kclause)
- (if (and (intset-ref elidable label) #f)
+ (if (intset-ref elidable label)
(with-cps cps
(setk label ($kfun src meta #f ktail kclause)))
cps))
- [Guile-commits] branch master updated (12d6e43 -> 3bbdf22), Andy Wingo, 2019/06/07
- [Guile-commits] 03/06: VM does not initialize stack frames, Andy Wingo, 2019/06/07
- [Guile-commits] 01/06: Add bind-optionals instruction, Andy Wingo, 2019/06/07
- [Guile-commits] 02/06: Allow for bind-optionals without alloc-frame, Andy Wingo, 2019/06/07
- [Guile-commits] 05/06: Add support no closure in $callk, Andy Wingo, 2019/06/07
- [Guile-commits] 04/06: Add compiler support for eliding closure bindings, Andy Wingo, 2019/06/07
- [Guile-commits] 06/06: Enable closure elision.,
Andy Wingo <=