* backtrace.c (scm_display_error_message): Made non-static, and

renamed from display_error_message.
* backtrace.h (scm_display_error_message): Added extern decl.
* throw.c (uncaught_throw): Use it to display the error message.

diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 3aab177..d3099b7 100644 (file)
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -88,9 +88,9 @@ display_header (source, port)
   scm_gen_puts (scm_regular_string, ": ", port);
 }
 
-static void display_error_message SCM_P ((SCM message, SCM args, SCM port));
-static void
-display_error_message (message, args, port)
+
+void
+scm_display_error_message (message, args, port)
      SCM message;
      SCM args;
      SCM port;
@@ -205,7 +205,7 @@ scm_display_error (stack, port, subr, message, args, rest)
       display_expression (current_frame, pname, source, port);
     }
   display_header (source, port);
-  display_error_message (message, args, port);
+  scm_display_error_message (message, args, port);
   return SCM_UNSPECIFIED;
 }
 

diff --git a/libguile/backtrace.h b/libguile/backtrace.h
index 3f77f1e..830a1eb 100644 (file)
--- a/libguile/backtrace.h
+++ b/libguile/backtrace.h
@@ -49,6 +49,7 @@
 
 #include "libguile/__scm.h"
 
+void scm_display_error_message SCM_P ((SCM message, SCM args, SCM port));
 SCM scm_display_error SCM_P ((SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest));
 SCM scm_display_backtrace SCM_P ((SCM stack, SCM port, SCM first, SCM depth));