diff options
author | Jim Blandy <jimb@red-bean.com> | 1999-02-06 12:31:04 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1999-02-06 12:31:04 +0000 |
commit | 3eeba8d4f523f0c823a11484a36ac0100eed9be7 (patch) | |
tree | 6912007b7ae065edf41a667bc82ae24e6cf6a54f /libguile/error.h | |
parent | 3ec93c46a1dca6c0f80c33a1b190ac35417bd7d1 (diff) | |
download | guile-3eeba8d4f523f0c823a11484a36ac0100eed9be7.tar.gz |
* chars.c (scm_lowers, scm_uppers, scm_charnames, scm_charnums),
eval.c (s_expression, s_test, s_body, s_bindings, s_variable,
s_clauses, s_formals): Variables now const.
* eval.c (promsmob): Now const.
* macros.c (macrosmob): Now const.
* smob.c (scm_newsmob): Smobfuns argument now points to const.
(freecell, flob, bigob): Now const.
* dynl.c (scm_make_argv_from_stringlist, scm_coerce_rostring),
error.c (scm_error, scm_syserror, scm_syserror_msg,
scm_num_overflow, scm_out_of_range, scm_wrong_type_arg,
scm_memory_error, scm_misc_error, scm_wta), macros.c
(scm_make_synt), feature.c (scm_add_feature), filesys.c
(scm_input_waiting_p), gc.c (scm_gc_start, scm_igc,
scm_must_malloc, scm_must_realloc), gsubr.c (scm_make_gsubr),
numbers.c (scm_num2dbl, scm_two_doubles, scm_num2long,
scm_num2long_long, scm_num2ulong),
options.c (scm_options), posix.c (scm_convert_exec_args,
environ_list_to_c), procs.c (scm_make_subr_opt, scm_make_subr),
ramap.c (scm_ramapc), read.c (scm_flush_ws), socket.c
(scm_sock_fd_to_port, scm_fill_sockaddr, scm_addr_vector), stime.c
(setzone, restorezone, bdtime2c), strop.c (scm_i_index),
strports.c (scm_mkstrport), symbols.c (scm_intern_obarray_soft,
scm_intern_obarray, scm_intern, scm_intern0,
scm_sysintern0_no_module_lookup, scm_sysintern, scm_sysintern0,
scm_symbol_value0), unif.c (scm_aind, scm_shap2ra): Argument
indicating calling subr, error message text, reason for error,
symbol name or feature name are now pointer to const.
* snarf.h (SCM_PROC, SCM_PROC1): String variables are now const.
* procs.c (scm_init_iprocs): iproc argument now points to const.
* pairs.c (cxrs): Now const.
* chars.h, error.h, feature.h, filesys.h, gc.h, gsubr.h, macros.h,
numbers.h, options.h, procs.h, ramap.h, read.h, smob.h,
strports.h, symbols.h, unif.h: Update variable declarations and
function prototypes for above changes.
* dynl.c, dynl-dld.c, dynl-dl.c, dynl-shl.c (sysdep_dynl_link,
sysdep_dynl_unlink, sysdep_dynl_func): Arguments FNAME, SUBR, and
SYMB now point to const.
Diffstat (limited to 'libguile/error.h')
-rw-r--r-- | libguile/error.h | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/libguile/error.h b/libguile/error.h index 864ac78b1..6dfbbc230 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -59,24 +59,25 @@ extern int scm_ints_disabled; #define SCM_NORETURN #endif -extern void scm_error SCM_P ((SCM key, char *subr, char *message, +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 SCM scm_strerror (SCM err); -extern void scm_syserror SCM_P ((char *subr)) SCM_NORETURN; -extern void scm_syserror_msg SCM_P ((char *subr, char *message, SCM args, - int eno)) SCM_NORETURN; -extern void scm_sysmissing SCM_P ((char *subr)) SCM_NORETURN; -extern void scm_num_overflow SCM_P ((char *subr)) SCM_NORETURN; -extern void scm_out_of_range SCM_P ((char *subr, SCM bad_value)) SCM_NORETURN; +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_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)) + SCM_NORETURN; extern void scm_wrong_num_args SCM_P ((SCM proc)) SCM_NORETURN; -extern void scm_wrong_type_arg SCM_P ((char *subr, int pos, SCM bad_value)) - SCM_NORETURN; -extern void scm_memory_error SCM_P ((char *subr)) SCM_NORETURN; -extern void scm_misc_error SCM_P ((char *subr, char *message, SCM args)) - SCM_NORETURN; -extern SCM scm_wta SCM_P ((SCM arg, char *pos, char *s_subr)); +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)); #endif /* ERRORH */ |