+void
+load_scheme_files (char *path)
+{
+ // load_scheme_file (path, "gacela.scm");
+}
+
+void
+load_scheme_file (char *path, char *filename)
+{
+ char fn[strlen (path) + 1024];
+
+ strcpy (fn, path);
+ strcat (fn, "/");
+ strcat (fn, filename);
+
+ scm_c_primitive_load (fn);
+}
+