From 42137426ae8959291f52dee156ee27c1d13ce90d Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Mon, 24 Jun 2013 13:18:17 +0200
Subject: [PATCH] Migrate JS-EVAL
---
src/compiler.lisp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/compiler.lisp b/src/compiler.lisp
index d8e9b6d..e9ee752 100644
--- 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)))
--
1.7.10.4