From edb4f61d5e1a9278368f6ffcc209ba691965efc9 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 24 Mar 2014 14:24:53 +0900
Subject: [PATCH] error function is no longer used

---
 src/error.c | 21 +++++++--------------
 1 file changed, 7 insertions(+), 14 deletions(-)

diff --git a/src/error.c b/src/error.c
index 10097548..1f68afa1 100644
--- a/src/error.c
+++ b/src/error.c
@@ -58,19 +58,6 @@ pic_errmsg(pic_state *pic)
   return pic_str_cstr(pic->err->msg);
 }
 
-noreturn static void
-error(pic_state *pic, pic_str *msg, pic_value irrs)
-{
-  struct pic_error *e;
-
-  e = (struct pic_error *)pic_obj_alloc(pic, sizeof(struct pic_error), PIC_TT_ERROR);
-  e->type = PIC_ERROR_OTHER;
-  e->msg = msg;
-  e->irrs = irrs;
-
-  pic_throw(pic, e);
-}
-
 void
 pic_error(pic_state *pic, const char *msg)
 {
@@ -82,12 +69,18 @@ pic_errorf(pic_state *pic, const char *fmt, ...)
 {
   va_list ap;
   pic_value err_line;
+  struct pic_error *e;
 
   va_start(ap, fmt);
   err_line = pic_vformat(pic, fmt, ap);
   va_end(ap);
 
-  error(pic, pic_str_ptr(pic_car(pic, err_line)), pic_cdr(pic, err_line));
+  e = (struct pic_error *)pic_obj_alloc(pic, sizeof(struct pic_error), PIC_TT_ERROR);
+  e->type = PIC_ERROR_OTHER;
+  e->msg = pic_str_ptr(pic_car(pic, err_line));
+  e->irrs = pic_cdr(pic, err_line);
+
+  pic_throw(pic, e);
 }
 
 void