From 0d00317ecc122d6e20b9fa1fb031004b45d1e12a Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 21:21:40 +0200 Subject: [PATCH] Migrate SET and FSET --- src/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index a737d63..1663dae 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1126,10 +1126,10 @@ `(get ,x "name")) (define-builtin set (symbol value) - `(code "(" ,symbol ").value = " ,value)) + `(= (get ,symbol "value") ,value)) (define-builtin fset (symbol value) - `(code "(" ,symbol ").fvalue = " ,value)) + `(= (get ,symbol "fvalue") ,value)) (define-builtin boundp (x) (js!bool `(code "(" ,x ".value !== undefined)"))) -- 1.7.10.4