[Top][All Lists]

[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 
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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]