From a96e5a0bebae37bad3115ffd84f97d3c14201a8a Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 23 Feb 2016 14:15:42 +0900 Subject: [PATCH] cosmetic changes --- extlib/benz/debug.c | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/extlib/benz/debug.c b/extlib/benz/debug.c index 0a0efa0a..d47ed186 100644 --- a/extlib/benz/debug.c +++ b/extlib/benz/debug.c @@ -45,26 +45,21 @@ pic_print_error(pic_state *pic, xFILE *file) assert(! pic_invalid_p(pic, err)); if (! pic_error_p(pic, err)) { - xfprintf(pic, file, "raise: "); - pic_fprintf(pic, port, "~s", err); + pic_fprintf(pic, port, "raise: ~s", err); } else { struct error *e; pic_value elem, it; e = pic_error_ptr(pic, err); if (! pic_eq_p(pic, pic_obj_value(e->type), pic_intern_lit(pic, ""))) { - pic_fprintf(pic, port, "~s", pic_obj_value(e->type)); - xfprintf(pic, file, " "); + pic_fprintf(pic, port, "~s-", pic_obj_value(e->type)); } - xfprintf(pic, file, "error: "); - pic_fprintf(pic, port, "~s", pic_obj_value(e->msg)); + pic_fprintf(pic, port, "error: ~s", pic_obj_value(e->msg)); pic_for_each (elem, e->irrs, it) { /* print error irritants */ pic_fprintf(pic, port, " ~s", elem); } - xfprintf(pic, file, "\n"); - - xfputs(pic, pic_str(pic, pic_obj_value(e->stack)), file); + pic_fprintf(pic, port, "\n%s", pic_str(pic, pic_obj_value(e->stack))); } }