print propagated error messages when stdlib failed to build

This commit is contained in:
Yuichi Nishiwaki 2013-11-22 06:34:34 -08:00
parent 4b326e4f6e
commit 23b806cc41
1 changed files with 2 additions and 2 deletions

View File

@ -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();
}