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

(scm_c_primitive_load,

Browse source 
scm_c_primitive_load_path): New.
This commit is contained in:
Marius Vollmer 2001-06-29 23:13:43 +00:00
parent ca13a04a26
commit c519b27251
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/load.c
View file

@ -136,6 +136,12 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
}
#undef FUNC_NAME
SCM
scm_c_primitive_load (const char *filename)
{
return scm_primitive_load (scm_makfrom0str (filename));
}
/* Builtin path to scheme library files. */
#ifdef SCM_PKGDATA_DIR
@ -460,6 +466,12 @@ SCM_DEFINE (scm_primitive_load_path, "primitive-load-path", 1, 0, 0,
}
#undef FUNC_NAME
SCM
scm_c_primitive_load_path (const char *filename)
{
return scm_primitive_load_path (scm_makfrom0str (filename));
}
#if SCM_DEBUG_DEPRECATED == 0
/* Eval now copies source properties, so this function is no longer required.

2
libguile/load.h
View file

@ -50,12 +50,14 @@ extern SCM scm_internal_parse_path (char *path, SCM tail);
extern SCM scm_parse_path (SCM path, SCM tail);
extern void scm_init_load_path (void);
extern SCM scm_primitive_load (SCM filename);
extern SCM scm_c_primitive_load (const char *filename);
extern SCM scm_sys_package_data_dir (void);
extern SCM scm_sys_library_dir (void);
extern SCM scm_sys_site_dir (void);
extern SCM scm_search_path (SCM path, SCM filename, SCM exts);
extern SCM scm_sys_search_load_path (SCM filename);
extern SCM scm_primitive_load_path (SCM filename);
extern SCM scm_c_primitive_load_path (const char *filename);
extern SCM scm_read_and_eval_x (SCM port);
extern void scm_init_load (void);