From ce86ba5f70b9e35bfb795402913f417de493e23f Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 5 Jul 2013 17:19:16 +0200 Subject: [PATCH] Migrate toplevel code emitted as result of literals --- src/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 79bf250..931e9a2 100644 --- 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))))))) -- 1.7.10.4