[Guile-commits] 08/12: Fix compute-defining-expressions (and thereby compute-constant-values)

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 2838c6e857ce3db2d81dd2278cff7809c7429580
Author: Andy Wingo <address@hidden>
Date:   Sun May 24 18:21:50 2015 +0200

    Fix compute-defining-expressions (and thereby compute-constant-values)
    
    * module/language/cps2/utils.scm (compute-defining-expressions): Fix
      not one but two bugs in this pattern.  Grrr.
---
 module/language/cps2/utils.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/cps2/utils.scm b/module/language/cps2/utils.scm
index c723aa0..7f8597a 100644
--- a/module/language/cps2/utils.scm
+++ b/module/language/cps2/utils.scm
@@ -151,7 +151,7 @@
   (persistent-intmap
    (intmap-fold (lambda (label cont defs)
                   (match cont
-                    (($ $kargs _ _ ($continue k exp))
+                    (($ $kargs _ _ ($ $continue k src exp))
                      (match (intmap-ref conts k)
                        (($ $kargs (_) (var))
                         (intmap-add! defs var exp meet-defining-expressions))