Fix js-eval. Macros bug fixed!

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 3fff9a3..0cd2d69 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -604,8 +604,7 @@
                 "})()" *newline*))))
 
 (define-compilation js-eval (string)
-  (concat "eval(" (ls-compile string env fenv)  ")"))
-
+  (concat "eval.apply(window, [" (ls-compile string env fenv)  "])"))
 
 (define-compilation error (string)
   (concat "(function (){ throw " (ls-compile string env fenv) ";" "return 0;})()"))

diff --git a/test.lisp b/test.lisp
index 101964c..10187b6 100644 (file)
--- a/test.lisp
+++ b/test.lisp
@@ -939,7 +939,7 @@
                 "})()" *newline*))))
 
 (define-compilation js-eval (string)
-  (concat "eval(" (ls-compile string env fenv)  ")"))
+  (concat "eval.apply(window, [" (ls-compile string env fenv)  "])"))
 
 
 (define-compilation error (string)