Migrate SET and FSET

[jscl.git] / src / compiler.lisp

diff --git a/src/compiler.lisp b/src/compiler.lisp
index a737d63..1663dae 100644 (file)
--- 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)")))