HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
39056a8
)
DCE uses fresh-var instead of gensym
author
Andy Wingo
<wingo@pobox.com>
Fri, 28 Mar 2014 15:57:40 +0000
(16:57 +0100)
committer
Andy Wingo
<wingo@pobox.com>
Mon, 31 Mar 2014 16:20:55 +0000
(18:20 +0200)
* module/language/cps/dce.scm (eliminate-dead-code): Use fresh-var
instead of gensym.
module/language/cps/dce.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/language/cps/dce.scm
b/module/language/cps/dce.scm
index
6c61051
..
6128134
100644
(file)
--- a/
module/language/cps/dce.scm
+++ b/
module/language/cps/dce.scm
@@
-181,7
+181,7
@@
(hashq-ref live-vars sym))
(define (make-adaptor name k defs)
(let* ((names (map (lambda (_) 'tmp) defs))
- (syms (map (lambda (_) (
gensym "tmp"
)) defs))
+ (syms (map (lambda (_) (
fresh-var
)) defs))
(live (filter-map (lambda (def sym)
(and (value-live? def)
sym))