From 226c00ff2e08e8f1d478e5dda3006a6cae8149cd Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 27 Jun 2013 01:58:18 +0200 Subject: [PATCH] Migrate %JS-VSET and %JS-VREF --- src/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index d299902..98d90c1 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1361,10 +1361,10 @@ `(return ,(ls-compile nil)))) (define-compilation %js-vref (var) - `(code "js_to_lisp(" ,var ")")) + `(call |js_to_lisp| ,(make-symbol var))) (define-compilation %js-vset (var val) - `(code "(" ,var " = lisp_to_js(" ,(ls-compile val) "))")) + `(= ,(make-symbol var) (call |lisp_to_js| ,(ls-compile val)))) (define-setf-expander %js-vref (var) (let ((new-value (gensym))) -- 1.7.10.4