From 603d649336ee3e7ad7e5dda04b0eb758fbe7f128 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 16 Sep 2016 03:40:42 -0400 Subject: [PATCH] WIP --- scheme/cyclone/util.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld index e9e85233..75a6fa25 100644 --- a/scheme/cyclone/util.sld +++ b/scheme/cyclone/util.sld @@ -487,7 +487,7 @@ ;; Unrenamed variable identifier (let ((renamed (gensym identifier))) (env:define-variable! renamed identifier use-env) -; (env:define-variable! renamed identifier mac-env) ;; TODO: renamed val? + (env:define-variable! renamed val mac-env) (Cyc-write `(ER rename ,identifier to ,renamed) (current-output-port)) (Cyc-display "\n" (current-output-port)) renamed)