error is an expression now

[jscl.git] / lispstrack.lisp

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 90b723f..38b6f96 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -530,7 +530,7 @@
           ")"))
 
 (define-compilation error (string)
-  (concat "console.error(" (ls-compile string env fenv) ")"))
+  (concat "(function (){ throw " (ls-compile string env fenv) ";" "return 0;})()"))
 
 (define-compilation new ()
   "{}")