diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-04-21 22:05:32 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-04-21 22:05:32 +0000 |
commit | 4ea139462d9235aae6428244706cc24e0029bc1c (patch) | |
tree | 9972f881898b0ba3fa4c89754003e8cc9cd99ca7 /libmu_scm | |
parent | e513fff21dd8b56b1803b04d364701233adc5fe1 (diff) | |
download | mailutils-4ea139462d9235aae6428244706cc24e0029bc1c.tar.gz mailutils-4ea139462d9235aae6428244706cc24e0029bc1c.tar.bz2 |
(mu-strerror): New function
Diffstat (limited to 'libmu_scm')
-rw-r--r-- | libmu_scm/mu_scm.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/libmu_scm/mu_scm.c b/libmu_scm/mu_scm.c index 23b2ccf4a..b5e8c48c8 100644 --- a/libmu_scm/mu_scm.c +++ b/libmu_scm/mu_scm.c @@ -153,6 +153,17 @@ SCM_DEFINE (scm_mu_register_format, "mu-register-format", 0, 0, 1, } #undef FUNC_NAME +SCM_DEFINE (scm_mu_strerror, "mu-strerror", 1, 0, 0, + (SCM ERR), +"Return the error message corresponding to ERR, which must be\n" +"an integer value.\n") +#define FUNC_NAME s_scm_mu_strerror +{ + SCM_ASSERT (scm_is_integer (ERR), ERR, SCM_ARG1, FUNC_NAME); + return scm_makfrom0str (mu_strerror (scm_to_int (ERR))); +} +#undef FUNC_NAME + static struct { char *name; |