From 1440a51ef8cf49ac1e655c62874fae962f8530cc Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 25 Jun 2014 18:18:01 +0900
Subject: [PATCH] improve error messages of load function

---
 src/load.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/load.c b/src/load.c
index b1fcf39a..f4b4db73 100644
--- a/src/load.c
+++ b/src/load.c
@@ -14,7 +14,7 @@ pic_load_cstr(pic_state *pic, const char *src)
 
   exprs = pic_parse_cstr(pic, src);
   if (pic_undef_p(exprs)) {
-    pic_error(pic, "load: unexpected EOF");
+    pic_errorf(pic, "load: read failure (%s)", pic_errmsg(pic));
   }
 
   pic_for_each (v, exprs) {
@@ -48,7 +48,7 @@ pic_load(pic_state *pic, const char *fn)
 
   exprs = pic_parse_file(pic, file);
   if (pic_undef_p(exprs)) {
-    pic_error(pic, "load: unexpected EOF");
+    pic_errorf(pic, "load: read failure (%s)", pic_errmsg(pic));
   }
 
   pic_for_each (v, exprs) {