X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=lispstrack.lisp;h=38b6f969f23e2205add524b2b69724468ef203d5;hb=609420871a3b63fbe2d2d9cc441a3efbc958cdde;hp=90b723f78380ae54cacefc56692faafdd911bf61;hpb=907f87f5558d1690f565a520a48abdb3612e974e;p=jscl.git

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 90b723f..38b6f96 100644
--- 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 ()
   "{}")