From c519b27251cb0b041e510a3feb8d8d620bfd1ca4 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Fri, 29 Jun 2001 23:13:43 +0000
Subject: [PATCH] (scm_c_primitive_load, scm_c_primitive_load_path): New.

---
 libguile/load.c | 12 ++++++++++++
 libguile/load.h |  2 ++
 2 files changed, 14 insertions(+)

diff --git a/libguile/load.c b/libguile/load.c
index 8c9d16b30..641f152ca 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -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.
diff --git a/libguile/load.h b/libguile/load.h
index 6d5ceb9ec..fbba9be08 100644
--- a/libguile/load.h
+++ b/libguile/load.h
@@ -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);