From 23b806cc418938f898a7b39ad09a5e673aea573a Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 22 Nov 2013 06:34:34 -0800
Subject: [PATCH] print propagated error messages when stdlib failed to build

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

diff --git a/src/init.c b/src/init.c
index 05eccec0..ae4f66b1 100644
--- a/src/init.c
+++ b/src/init.c
@@ -47,14 +47,14 @@ pic_load_stdlib(pic_state *pic)
 
     proc = pic_codegen(pic, v);
     if (proc == NULL) {
-      fputs(pic->errmsg, stderr);
+      fprintf(stderr, "in codegen: %s\n", pic->errmsg);
       fputs("fatal error: built-in.scm compilation failure", stderr);
       abort();
     }
 
     v = pic_apply(pic, proc, pic_nil_value());
     if (pic_undef_p(v)) {
-      fputs(pic->errmsg, stderr);
+      fprintf(stderr, "in execute: %s\n", pic->errmsg);
       fputs("fatal error: built-in.scm evaluation failure", stderr);
       abort();
     }