Migrate JS-EVAL

diff --git a/src/compiler.lisp b/src/compiler.lisp
index d8e9b6d..e9ee752 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1224,10 +1224,10 @@
 
 (define-builtin js-eval (string)
   (if *multiple-value-p*
-      (js!selfcall
-        "var v = globalEval(xstring(" string "));"
-        "return values.apply(this, forcemv(v));" )
-      `(code "globalEval(xstring(" ,string "))")))
+      (js!selfcall*
+        `(var (v (call |globalEval| (call |xstring| ,string))))
+        `(return (call (get |values| "apply") this (call |forcemv| v))))
+      `(call |globalEval| (call |xstring| ,string))))
 
 (define-builtin %throw (string)
   (js!selfcall* `(throw ,string)))