From: David Vázquez Date: Fri, 5 Jul 2013 15:19:16 +0000 (+0200) Subject: Migrate toplevel code emitted as result of literals X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ce86ba5f70b9e35bfb795402913f417de493e23f;p=jscl.git Migrate toplevel code emitted as result of literals --- 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)))))))