mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* list.c: Moved append docs to append! Thanks Dirk Hermann. Also,

Browse source 
added append docs from R4RS.

* strings.c: Docstring typo fix, + eliminate unneeded IMP tests.
Thanks Dirk Hermann!

* chars.h: Provide SCM_CHARP, SCM_CHAR, SCM_MAKE_CHAR and
deprecate SCM_ICHRP, SCM_ICHR, SCM_MAKICHR.  Thanks Dirk Hermann!

* *.h, *.c: Use SCM_CHARP, SCM_CHAR, SCM_MAKE_CHAR throughout.
Drop use of SCM_P for function prototypes... assume an ANSI C
compiler.  Thanks Dirk Hermann!
This commit is contained in:
Greg J. Badros 2000-03-02 20:54:43 +00:00
parent e510ed373f
commit 7866a09b5b
79 changed files with 939 additions and 938 deletions
Download patch file Download diff file Expand all files Collapse all files

38
libguile/error.h
View file

@ -59,29 +59,29 @@ extern int scm_ints_disabled;
#define SCM_NORETURN
#endif
extern void scm_error SCM_P ((SCM key, const char *subr, const char *message,
SCM args, SCM rest)) SCM_NORETURN;
extern SCM scm_error_scm SCM_P ((SCM key, SCM subr, SCM message,
SCM args, SCM rest)) SCM_NORETURN;
extern void scm_error (SCM key, const char *subr, const char *message,
SCM args, SCM rest) SCM_NORETURN;
extern SCM scm_error_scm (SCM key, SCM subr, SCM message,
SCM args, SCM rest) SCM_NORETURN;
extern SCM scm_strerror (SCM err);
extern void scm_syserror SCM_P ((const char *subr)) SCM_NORETURN;
extern void scm_syserror_msg SCM_P ((const char *subr, const char *message,
SCM args, int eno)) SCM_NORETURN;
extern void scm_syserror (const char *subr) SCM_NORETURN;
extern void scm_syserror_msg (const char *subr, const char *message,
SCM args, int eno) SCM_NORETURN;
/* scm_sysmissing is no longer used in libguile. it can probably be
removed after a release or two (2000-01-09). */
extern void scm_sysmissing SCM_P ((const char *subr)) SCM_NORETURN;
extern void scm_num_overflow SCM_P ((const char *subr)) SCM_NORETURN;
extern void scm_out_of_range SCM_P ((const char *subr, SCM bad_value))
extern void scm_sysmissing (const char *subr) SCM_NORETURN;
extern void scm_num_overflow (const char *subr) SCM_NORETURN;
extern void scm_out_of_range (const char *subr, SCM bad_value)
SCM_NORETURN;
extern void scm_out_of_range_pos SCM_P ((const char *subr, SCM bad_value, SCM pos))
extern void scm_out_of_range_pos (const char *subr, SCM bad_value, SCM pos)
SCM_NORETURN;
extern void scm_wrong_num_args SCM_P ((SCM proc)) SCM_NORETURN;
extern void scm_wrong_type_arg SCM_P ((const char *subr, int pos,
SCM bad_value)) SCM_NORETURN;
extern void scm_memory_error SCM_P ((const char *subr)) SCM_NORETURN;
extern void scm_misc_error SCM_P ((const char *subr, const char *message,
SCM args)) SCM_NORETURN;
extern SCM scm_wta SCM_P ((SCM arg, const char *pos, const char *s_subr));
extern void scm_init_error SCM_P ((void));
extern void scm_wrong_num_args (SCM proc) SCM_NORETURN;
extern void scm_wrong_type_arg (const char *subr, int pos,
SCM bad_value) SCM_NORETURN;
extern void scm_memory_error (const char *subr) SCM_NORETURN;
extern void scm_misc_error (const char *subr, const char *message,
SCM args) SCM_NORETURN;
extern SCM scm_wta (SCM arg, const char *pos, const char *s_subr);
extern void scm_init_error (void);
#endif /* ERRORH */