update benz (exception API refactoring)

piclib/picrin/base.scm

@@ -255,11 +255,11 @@
           raise
           raise-continuable
           error
+          make-error-object
           error-object?
           error-object-message
           error-object-irritants
-          read-error?
-          file-error?)
+          error-object-type)
 
   (export procedure?
           apply

piclib/scheme/base.scm

@@ -463,6 +463,14 @@
 
   ;; 6.11. Exceptions
 
+  (define (read-error? obj)
+    (and (error-object? obj)
+         (eq? (error-object-type obj) 'read)))
+
+  (define (file-error? obj)
+    (and (error-object? obj)
+         (eq? (error-object-type obj) 'file)))
+
   (export with-exception-handler
           raise
           raise-continuable

src/main.c

@@ -69,7 +69,7 @@ main(int argc, char *argv[], char **envp)
     pic_funcall(pic, PICRIN_MAIN, "main", pic_nil_value());
   }
   pic_catch {
-    pic_print_backtrace(pic, pic->err);
+    pic_print_backtrace(pic);
     status = 1;
   }