X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela.c;h=d46c49536bba42a024c30bcd5e74453ff6b01b35;hb=5a7149421291b47d76eafaf94e37402266542fda;hp=c36d0a13270eedefd09794ef1223f8d6d4554680;hpb=ddb41086a294d20c28c04b9aa20900acf3624506;p=gacela.git

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