diff options
Diffstat (limited to 'libguile/error.c')
-rw-r--r-- | libguile/error.c | 3 |
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 |