- load_scheme_file (path, "gacela.scm");
- load_scheme_file (path, "gacela_events.scm");
- load_scheme_file (path, "gacela_draw.scm");
- load_scheme_file (path, "gacela_ttf.scm");
+ 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"));