From 477e0ee81497531a490c208b9307b0872170bcde Mon Sep 17 00:00:00 2001
From: =?utf8?q?David=20V=C3=A1zquez?= <davazp@gmail.com>
Date: Fri, 3 May 2013 00:08:06 +0100
Subject: [PATCH] `error' uses basic format

---
 src/boot.lisp     |    4 ++++
 src/compiler.lisp |    2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/boot.lisp b/src/boot.lisp
index 845b601..71b98ff 100644
--- 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
--- 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 () "{}")
-- 
1.7.10.4