fix build errors

picrin-scheme · Feb 25, 2016 · fc85e45 · fc85e45
1 parent 8a9a120
commit fc85e45
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 6 deletions.
diff --git a/extlib/benz/debug.c b/extlib/benz/debug.c
@@ -38,11 +38,9 @@ pic_get_backtrace(pic_state *pic)
 #if PIC_USE_WRITE
 
 void
-pic_print_error(pic_state *pic, xFILE *file)
+pic_print_error(pic_state *pic, xFILE *file, pic_value err)
 {
-  pic_value err = pic_err(pic), port = pic_open_port(pic, file);
-
-  assert(! pic_invalid_p(pic, err));
+  pic_value port = pic_open_port(pic, file);
 
   if (! pic_error_p(pic, err)) {
     pic_fprintf(pic, port, "raise: ~s", err);

diff --git a/extlib/benz/include/picrin/extra.h b/extlib/benz/include/picrin/extra.h
@@ -98,7 +98,7 @@ xFILE *xfopen_null(pic_state *, const char *mode);
 void pic_warnf(pic_state *, const char *, ...);
 pic_value pic_get_backtrace(pic_state *);
 #if PIC_USE_WRITE
-void pic_print_error(pic_state *, xFILE *);
+void pic_print_error(pic_state *, xFILE *, pic_value err);
 #endif
 
 #if defined(__cplusplus)

diff --git a/src/main.c b/src/main.c
@@ -45,7 +45,7 @@ main(int argc, char *argv[], char **envp)
     status = 0;
   }
   pic_catch(e) {
-    pic_print_error(pic, xstderr);
+    pic_print_error(pic, xstderr, e);
     status = 1;
   }