+ scm_c_eval_string ("(use-modules (ice-9 optargs))");
+ scm_c_eval_string ("(use-modules (ice-9 receive))");
+ scm_c_eval_string ("(use-modules (ice-9 threads))");
+ scm_c_eval_string ("(read-enable 'case-insensitive)");
+
+ // Bindings for C functions and structs
+ SDL_register_functions (NULL);
+ GL_register_functions (NULL);
+ FTGL_register_functions (NULL);
+
+ return NULL;
+}
+
+void
+load_scheme_files (char *path)
+{
+ char load_path[strlen (path) + 1024];
+
+ sprintf (load_path, "(set! %%load-path (cons \"%s\" %%load-path))", path);
+ scm_c_eval_string (load_path);
+ scm_primitive_load_path (scm_from_locale_string ("gacela_loader.scm"));
+}
+
+int
+main (int argc, char *argv[])
+{
+ /*
+ scm_with_guile (&init_gacela, NULL);