mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* strports.c (scm_read_0str, scm_eval_0str): update scm_read usage.

Browse source 
* gdbint.c (gdb_read): update scm_lreadr usage.

	* load.h: update prototypes.

	* load.c (scm_primitive_load, scm_read_and_eval_x,
	scm_primitive_load_path): remove case_insensitive_p, sharp arguments.

	* read.h: add prototype for scm_read_hash_extend.  Change args for
	other prototypes.

	* read.c (scm_read_hash_procedures): new variable.
	(scm_read_hash_extend): new procedure.
	(scm_get_hash_procedure): new procedure.
*	(scm_lreadr): use scm_get_hash_procedure instead of an argument
	for extended # processing.
	(scm_read, scm_lreadr, scm_lreadrecparen, scm_lreadparen,
	scm_read_token): remove case_i, sharp arguments.  Change callers.

	* read.h (SCM_N_READ_OPTIONS): increase to 3.
	(SCM_CASE_INSENSITIVE_P): define.

	* read.c: add case-insensitive option to scm_read_opts.
*	(scm_read_token): use SCM_CASE_INSENSITIVE_P instead of an argument
	to determine whether to convert symbol case.
	(default_case_i): definition removed.
	* read.c (scm_read_token): if case_i, downcase ic before doing
	anything with it.
This commit is contained in:
Gary Houston 1997-03-08 18:58:24 +00:00
parent 90d5e28037
commit deca31e173
7 changed files with 151 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/load.h
View file

@ -47,14 +47,11 @@
extern void scm_init_load_path SCM_P ((void));
extern SCM scm_primitive_load SCM_P ((SCM filename, SCM casep, SCM sharp));
extern SCM scm_primitive_load SCM_P ((SCM filename));
extern SCM scm_sys_package_data_dir SCM_P ((void));
extern SCM scm_sys_search_load_path SCM_P ((SCM filename));
extern SCM scm_primitive_load_path SCM_P ((SCM filename, SCM casep,
SCM sharp));
extern SCM scm_read_and_eval_x SCM_P ((SCM port,
SCM case_insensitive_p,
SCM sharp));
extern SCM scm_primitive_load_path SCM_P ((SCM filename));
extern SCM scm_read_and_eval_x SCM_P ((SCM port));
extern void scm_init_load SCM_P ((void));
#endif /* LOADH */