X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=src%2Fgacela.c;h=c2a9ab7ad0a961880e6d42fa107c6548d64192bc;hb=9830ecc7300a84faf889dac0f755247d54cfdb81;hp=c36d0a13270eedefd09794ef1223f8d6d4554680;hpb=ddb41086a294d20c28c04b9aa20900acf3624506;p=gacela.git

diff --git a/src/gacela.c b/src/gacela.c
index c36d0a1..c2a9ab7 100644
--- 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);
 }