From 42137426ae8959291f52dee156ee27c1d13ce90d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= 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