[Guile-commits] 05/07: Build CPS2 with transient intmaps

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 3ab3cdecdaf70944ec84dfd2fc94169259a0cdc6
Author: Andy Wingo <address@hidden>
Date:   Mon May 11 22:42:50 2015 +0200

    Build CPS2 with transient intmaps
    
    * module/language/tree-il/compile-cps2.scm (with-cps)
      (cps-convert/thunk): Use transient intmaps.
---
 module/language/tree-il/compile-cps2.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/language/tree-il/compile-cps2.scm 
b/module/language/tree-il/compile-cps2.scm
index f4cfb29..aa3c4d2 100644
--- a/module/language/tree-il/compile-cps2.scm
+++ b/module/language/tree-il/compile-cps2.scm
@@ -144,7 +144,7 @@
        (with-cps cps clause ...)))
     ((_ cps (letk label cont) clause ...)
      (let-fresh (label) ()
-       (with-cps (intmap-add cps label (build-cont cont))
+       (with-cps (intmap-add! cps label (build-cont cont))
          clause ...)))
     ((_ cps (letv v ...) clause ...)
      (let-fresh () (v ...)
@@ -759,7 +759,7 @@ integer."
       ($ ((lambda (cps)
             (let ((init (build-cont
                           ($kfun (tree-il-src exp) '() init ktail kclause))))
-              (with-cps (intmap-add cps kinit init)
+              (with-cps (persistent-intmap (intmap-add! cps kinit init))
                 kinit))))))))
 
 (define *comp-module* (make-fluid))