From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 19:21:40 +0000 (+0200)
Subject: Migrate SET and FSET
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0d00317ecc122d6e20b9fa1fb031004b45d1e12a;p=jscl.git

Migrate SET and FSET
---

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)")))