print propagated error messages when stdlib failed to build

2013-11-22 06:34:34 -08:00
parent 4b326e4f6e
commit 23b806cc41
1 changed files with 2 additions and 2 deletions
@@ -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();
    }