mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Move code to initialize and search %load-path from ice-9 to C

Browse source 
code, so we can use the load-path to find the ice-9 boot code;
this makes it easier to run Guile without installing it.  See
corresponding changes in guile/Makefile.in.
* feature.c: Move stuff concerned with the load path to load.c.
(scm_compiled_library_path): Deleted.
Don't #include libpath.h here.
* feature.h: Don't mention scm_compiled_library_path.
* load.c: #include "libpath.h" here, as well as <sys/types.h>,
<sys/stat.h>, and <unistd.h> (if present).
(R_OK): #define if the system hasn't deigned to.
(scm_loc_load_path): New variable.
(scm_init_load_path, scm_sys_search_load_path,
scm_sys_try_load_path): New functions.
(scm_init_load): Initialize scm_loc_load_path to point to the
value cell of the Scheme %load-path variable.
* load.h: Add declarations for scm_sys_search_load_path,
scm_sys_try_load_path.
* init.c: Call scm_init_load_path.
* Makefile.in (feature.o, load.o): Dependencies updated.

* load.c, load.h: Rewrite using PROTO macro.
This commit is contained in:
Jim Blandy 1996-09-05 16:51:34 +00:00
parent 0672150057
commit 68ec6062ce
1 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/load.h
View file

@ -46,17 +46,10 @@
#ifdef __STDC__
extern SCM scm_sys_try_load (SCM filename, SCM casep, SCM sharp);
extern void scm_init_load (void);
#else /* STDC */
extern SCM scm_sys_try_load ();
extern void scm_init_load ();
#endif /* STDC */
extern void scm_init_load_path PROTO ((void));
extern SCM scm_sys_try_load PROTO ((SCM filename, SCM casep, SCM sharp));
extern SCM scm_sys_search_load_path PROTO ((SCM filename));
extern SCM scm_sys_try_load_path PROTO ((SCM filename, SCM casep, SCM sharp));
extern void scm_init_load PROTO ((void));
#endif /* LOADH */