mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

DCE uses fresh-var instead of gensym

Browse source 
* module/language/cps/dce.scm (eliminate-dead-code): Use fresh-var
  instead of gensym.
This commit is contained in:
Andy Wingo 2014-03-28 16:57:40 +01:00
parent 39056a81fc
commit cd72929e71
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/dce.scm
View file

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