summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/error.c')
-rw-r--r--libguile/error.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/error.c b/libguile/error.c
index 9968eb116..41588f7ce 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -148,8 +148,7 @@ SCM_DEFINE (scm_strerror, "strerror", 1, 0, 0,
"must be an integer value.")
#define FUNC_NAME s_scm_strerror
{
- SCM_VALIDATE_INUM (1, err);
- return scm_makfrom0str (SCM_I_STRERROR (SCM_INUM (err)));
+ return scm_makfrom0str (SCM_I_STRERROR (scm_to_int (err)));
}
#undef FUNC_NAME