`error' uses basic format

diff --git a/src/boot.lisp b/src/boot.lisp
index 845b601..71b98ff 100644 (file)
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -613,3 +613,7 @@
 
 (defun values (&rest args)
   (values-list args))
+
+(defun error (fmt &rest args)
+  (%throw (apply #'format nil fmt args)))
+

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 49ea708..d802263 100644 (file)
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1548,7 +1548,7 @@
           "return values.apply(this, forcemv(v));" *newline*)
         "globalEval(string)")))
 
-(define-builtin error (string)
+(define-builtin %throw (string)
   (js!selfcall "throw " string ";" *newline*))
 
 (define-builtin new () "{}")