Migrate BOUNDP and FBOUNDP

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 1663dae..92c847f 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1132,10 +1132,10 @@
   `(= (get ,symbol "fvalue") ,value))
 
 (define-builtin boundp (x)
-  (js!bool `(code "(" ,x ".value !== undefined)")))
+  (js!bool `(!== (get ,x "value") undefined)))
 
 (define-builtin fboundp (x)
-  (js!bool `(code "(" ,x ".fvalue !== undefined)")))
+  (js!bool `(!== (get ,x "fvalue") undefined)))
 
 (define-builtin symbol-value (x)
   (js!selfcall