(no commit message)

[gacela.git] / src / gacela.c

diff --git a/src/gacela.c b/src/gacela.c
index c36d0a13270eedefd09794ef1223f8d6d4554680..c2a9ab7ad0a961880e6d42fa107c6548d64192bc 100644 (file)
--- a/src/gacela.c
+++ b/src/gacela.c
@@ -27,6 +27,12 @@ register_functions (void* data)
   return NULL;
 }
 
+void
+load_scheme_files (void)
+{
+//  scm_c_primitive_load ("gacela.scm");
+}
+
 int
 main (int argc, char *argv[])
 {
@@ -35,5 +41,6 @@ main (int argc, char *argv[])
   scm_c_eval_string ("(set-repl-prompt! \"gacela>\")");
   scm_c_eval_string ("(use-modules (ice-9 readline))");
   scm_c_eval_string ("(activate-readline)");
+  load_scheme_files ();
   scm_shell (argc, argv);
 }