[uim-commit] r2893 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-10 15:15:22 -0800 (Tue, 10 Jan 2006)
New Revision: 2893

Modified:
   branches/r5rs/sigscheme/error.c
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (scm_show_error_header): Removed
  - (scm_throw_exception): Removed obsolete decl
* sigscheme/error.c
  - (scm_p_inspect_error): Inline scm_show_error_header()
  - (scm_show_error_header): Removed


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2006-01-10 23:06:17 UTC (rev 2892)
+++ branches/r5rs/sigscheme/error.c	2006-01-10 23:15:22 UTC (rev 2893)
@@ -258,7 +258,7 @@
     }
 
     if (scm_debug_categories() & SCM_DBG_ERRMSG) {
-        scm_show_error_header();
+        scm_port_printf(scm_err, SCM_ERR_HEADER);
         if (ERROBJP(err_obj)) {
             scm_display_to_port(scm_err, err_obj);
         } else {
@@ -338,12 +338,6 @@
     /* NOTREACHED */
 }
 
-void
-scm_show_error_header(void)
-{
-    scm_port_printf(scm_err, SCM_ERR_HEADER);
-}
-
 #if (SCM_DEBUG && SCM_DEBUG_BACKTRACE_VAL)
 static void
 show_arg(ScmObj arg, ScmObj env)

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-10 23:06:17 UTC (rev 2892)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2006-01-10 23:15:22 UTC (rev 2893)
@@ -525,8 +525,6 @@
 
 /* error.c */
 void scm_init_error(void);
-void scm_throw_exception(ScmObj errorobj) SCM_NORETURN;
-void scm_show_error_header(void);
 
 /* operations.c */
 int scm_finite_length(ScmObj lst);