mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20: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

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
Sat Aug 23 18:45:44 1997 Gary Houston <ghouston@actrix.gen.nz>
* errno.h: prototype for scm_strerror.
* error.c (scm_strerror): new procedure.
Mon Aug 18 14:58:22 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Mon Aug 18 14:58:22 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* list.c (scm_list_append_x): Allow non-pair as last argument. * list.c (scm_list_append_x): Allow non-pair as last argument.

8
libguile/error.c
View file

@ -116,6 +116,14 @@ scm_error_scm (key, subr, message, args, rest)
/* not reached. */ /* 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"); SCM_SYMBOL (scm_system_error_key, "system-error");
void void
scm_syserror (subr) scm_syserror (subr)

1
libguile/error.h
View file

@ -65,6 +65,7 @@ extern void (*scm_error_callback) SCM_P ((SCM key, char *subr,
char *message, SCM args, SCM rest)); char *message, SCM args, SCM rest));
extern SCM scm_error_scm SCM_P ((SCM key, SCM subr, SCM message, extern SCM scm_error_scm SCM_P ((SCM key, SCM subr, SCM message,
SCM args, SCM rest)) SCM_NORETURN; SCM args, SCM rest)) SCM_NORETURN;
extern SCM scm_strerror (SCM err);
extern void scm_syserror SCM_P ((char *subr)) SCM_NORETURN; extern void scm_syserror SCM_P ((char *subr)) SCM_NORETURN;
extern void scm_syserror_msg SCM_P ((char *subr, char *message, SCM args, extern void scm_syserror_msg SCM_P ((char *subr, char *message, SCM args,
int eno)) SCM_NORETURN; int eno)) SCM_NORETURN;