Only set var when (cell) is called

This commit is contained in:
Justin Ethier 2019-09-19 22:02:42 -04:00
parent 6ea8369193
commit fa9fc03043

View file

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