From fa9fc0304341e4d913c12c669c40ecda30c55b2f Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 19 Sep 2019 22:02:42 -0400
Subject: [PATCH] Only set var when (cell) is called

---
 scheme/cyclone/cgen.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 6195cc23..92e7bf8b 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -837,7 +837,9 @@
             (list
                 (string-append c-func "(" cv-name tdata-comma tdata)))))
      (else
-        (if (> (string-length tptr) 0) (set! *cell-local-var* tptr))
+        (if (and (eq? p 'cell)
+            (> (string-length tptr) 0))
+            (set! *cell-local-var* tptr))
         (c-code/vars 
           (string-append c-func "(" tdata tptr-comma tptr)
           (list tptr-decl))))))