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