From cd72929e71e61b31d09ef8aa1a926674acf140e2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 28 Mar 2014 16:57:40 +0100 Subject: [PATCH] DCE uses fresh-var instead of gensym * module/language/cps/dce.scm (eliminate-dead-code): Use fresh-var instead of gensym. --- module/language/cps/dce.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/dce.scm b/module/language/cps/dce.scm index 6c61051d9..6128134e5 100644 --- 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))