[Guile-commits] 07/10: Beta reduction over first-order CPS

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 099784ca9178c441eaf03a37349c463b75b57523
Author: Andy Wingo <address@hidden>
Date:   Thu Jul 16 07:32:52 2015 +0200

    Beta reduction over first-order CPS
    
    * module/language/cps2/simplify.scm (beta-reduce): Handle $closure.
---
 module/language/cps2/simplify.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/cps2/simplify.scm 
b/module/language/cps2/simplify.scm
index b87b044..19d7a17 100644
--- a/module/language/cps2/simplify.scm
+++ b/module/language/cps2/simplify.scm
@@ -238,7 +238,7 @@
           (build-term
            ($continue k src
              ,(rewrite-exp exp
-                ((or ($ $const) ($ $prim) ($ $fun) ($ $rec))
+                ((or ($ $const) ($ $prim) ($ $fun) ($ $rec) ($ $closure))
                  ,exp)
                 (($ $call proc args)
                  ($call (subst proc) ,(map subst args)))