*** empty log message ***

[bpt/guile.git] / libguile / error.h

diff --git a/libguile/error.h b/libguile/error.h
index f71019b..7327f27 100644 (file)
--- a/libguile/error.h
+++ b/libguile/error.h
@@ -59,13 +59,12 @@ extern int scm_ints_disabled;
 #define SCM_NORETURN
 #endif
 
-
-extern SCM scm_errno SCM_P ((SCM arg));
-extern SCM scm_perror SCM_P ((SCM arg));
 extern void scm_error SCM_P ((SCM key, char *subr, char *message,
                              SCM args, SCM rest)) SCM_NORETURN;
 extern void (*scm_error_callback) SCM_P ((SCM key, char *subr,
                                          char *message, SCM args, SCM rest));
+extern SCM scm_error_scm SCM_P ((SCM key, SCM subr, SCM message,
+                             SCM args, SCM rest)) SCM_NORETURN;
 extern void scm_syserror SCM_P ((char *subr)) SCM_NORETURN;
 extern void scm_syserror_msg SCM_P ((char *subr, char *message, SCM args,
                                     int eno)) SCM_NORETURN;