summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/error.c')
-rw-r--r--libguile/error.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/libguile/error.c b/libguile/error.c
index 1410ff421..304d74484 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -123,7 +123,7 @@ scm_perror (arg)
void (*scm_error_callback) () = 0;
/* all errors thrown from C should pass through here. */
-/* also known as lgh_error. */
+/* also known as scm_error. */
void
scm_error (key, subr, message, args, rest)
SCM key;
@@ -164,7 +164,7 @@ void
scm_syserror (subr)
char *subr;
{
- lgh_error (scm_system_error_key,
+ scm_error (scm_system_error_key,
subr,
"%s",
scm_listify (scm_makfrom0str (strerror (errno)),
@@ -178,7 +178,7 @@ scm_syserror_msg (subr, message, args)
char *message;
SCM args;
{
- lgh_error (scm_system_error_key,
+ scm_error (scm_system_error_key,
subr,
message,
args,
@@ -190,13 +190,13 @@ scm_sysmissing (subr)
char *subr;
{
#ifdef ENOSYS
- lgh_error (scm_system_error_key,
+ scm_error (scm_system_error_key,
subr,
"%s",
scm_listify (scm_makfrom0str (strerror (ENOSYS)), SCM_UNDEFINED),
scm_listify (SCM_MAKINUM (ENOSYS), SCM_UNDEFINED));
#else
- lgh_error (scm_system_error_key,
+ scm_error (scm_system_error_key,
subr,
"Missing function",
SCM_BOOL_F,
@@ -208,7 +208,7 @@ void
scm_num_overflow (subr)
char *subr;
{
- lgh_error (scm_num_overflow_key,
+ scm_error (scm_num_overflow_key,
subr,
"Numerical overflow",
SCM_BOOL_F,
@@ -220,7 +220,7 @@ scm_out_of_range (subr, bad_value)
char *subr;
SCM bad_value;
{
- lgh_error (scm_out_of_range_key,
+ scm_error (scm_out_of_range_key,
subr,
"Argument out of range: %S",
scm_listify (bad_value, SCM_UNDEFINED),
@@ -231,7 +231,7 @@ void
scm_wrong_num_args (proc)
SCM proc;
{
- lgh_error (scm_args_number_key,
+ scm_error (scm_args_number_key,
NULL,
"Wrong number of arguments to %s",
scm_listify (proc, SCM_UNDEFINED),
@@ -244,7 +244,7 @@ scm_wrong_type_arg (subr, pos, bad_value)
int pos;
SCM bad_value;
{
- lgh_error (scm_arg_type_key,
+ scm_error (scm_arg_type_key,
subr,
(pos == 0) ? "Wrong type argument: %S"
: "Wrong type argument in position %s: %S",
@@ -257,7 +257,7 @@ void
scm_memory_error (subr)
char *subr;
{
- lgh_error (scm_memory_alloc_key,
+ scm_error (scm_memory_alloc_key,
subr,
"Memory allocation error",
SCM_BOOL_F,
@@ -276,7 +276,7 @@ scm_wta (arg, pos, s_subr)
if ((~0x1fL) & (long) pos)
{
/* error string supplied. */
- lgh_error (scm_misc_error_key,
+ scm_error (scm_misc_error_key,
s_subr,
pos,
SCM_BOOL_F,
@@ -309,7 +309,7 @@ scm_wta (arg, pos, s_subr)
scm_memory_error (s_subr);
default:
/* this shouldn't happen. */
- lgh_error (scm_misc_error_key,
+ scm_error (scm_misc_error_key,
s_subr,
"Unknown error",
SCM_BOOL_F,