guile/guile-core/libguile load.h load.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/29 16:13:43

Modified files:
        guile-core/libguile: load.h load.c 

Log message:
        (scm_c_primitive_load,
        scm_c_primitive_load_path): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/load.h.diff?cvsroot=OldCVS&tr1=1.15&tr2=1.16&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/load.c.diff?cvsroot=OldCVS&tr1=1.64&tr2=1.65&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/load.c
diff -u guile/guile-core/libguile/load.c:1.64 
guile/guile-core/libguile/load.c:1.65
--- guile/guile-core/libguile/load.c:1.64       Wed Jun 27 18:11:58 2001
+++ guile/guile-core/libguile/load.c    Fri Jun 29 16:13:43 2001
@@ -136,6 +136,12 @@
 }
 #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
@@ -459,6 +465,12 @@
   return scm_primitive_load (full_filename);
 }
 #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
 
Index: guile/guile-core/libguile/load.h
diff -u guile/guile-core/libguile/load.h:1.15 
guile/guile-core/libguile/load.h:1.16
--- guile/guile-core/libguile/load.h:1.15       Mon Jun 12 05:28:23 2000
+++ guile/guile-core/libguile/load.h    Fri Jun 29 16:13:43 2001
@@ -50,12 +50,14 @@
 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);