mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

* errno.h: prototype for scm_strerror.

Browse source 
* error.c (scm_strerror): new procedure.
This commit is contained in:
Gary Houston 1997-08-23 18:49:35 +00:00
parent 1782cc374c
commit efb997f535
3 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/error.c
View file

@ -116,6 +116,14 @@ scm_error_scm (key, subr, message, args, rest)
/* not reached. */
}
SCM_PROC (s_strerror, "strerror", 1, 0, 0, scm_strerror);
SCM
scm_strerror (SCM err)
{
SCM_ASSERT (SCM_INUMP (err), err, SCM_ARG1, s_strerror);
return scm_makfrom0str (strerror (SCM_INUM (err)));
}
SCM_SYMBOL (scm_system_error_key, "system-error");
void
scm_syserror (subr)