Migrate toplevel code emitted as result of literals

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 79bf250..931e9a2 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -545,9 +545,9 @@
                dumped
                (let ((jsvar (genlit)))
                  (push (cons sexp jsvar) *literal-table*)
-                 (toplevel-compilation `(code "var " ,jsvar " = " ,dumped))
+                 (toplevel-compilation `(var (,(make-symbol jsvar) ,dumped)))
                  (when (keywordp sexp)
-                   (toplevel-compilation `(code ,jsvar ".value = " ,jsvar)))
+                   (toplevel-compilation `(= ,(get (make-symbol jsvar) "value") ,(make-symbol jsvar))))
                  jsvar)))))))