From 82f99099514c225dc1d166734cd053aa809859b7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 12 Nov 2018 17:06:35 -0500
Subject: [PATCH] Fix (set!)

---
 scheme/cyclone/cps-opt-local-var-redux.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/cyclone/cps-opt-local-var-redux.scm b/scheme/cyclone/cps-opt-local-var-redux.scm
index 9f6f2ff4..3a83c100 100644
--- a/scheme/cyclone/cps-opt-local-var-redux.scm
+++ b/scheme/cyclone/cps-opt-local-var-redux.scm
@@ -38,8 +38,8 @@
         ,@(map scan (define->exp exp))))
      ((set!? exp)
       `(set!
-         ,(set!->var exp)
-         ,(set!->exp exp)))
+         ,(scan (set!->var exp))
+         ,(scan (set!->exp exp))))
      ((if? exp)       
       `(if ,(scan (if->condition exp))
            ,(scan (if->then exp))
@@ -187,7 +187,7 @@
                              ((lambda
                                 (lp$80$87$681)
                                 (Cyc-seq
-                                  (set-cell!
+                                  (set!
                                     lp$80$87$681
                                     (lambda
                                       (k$1073 i$88$682 first$89$683 row$90$684)