src/gacela.c

   1 #include <libguile.h>
   2 #include "gacela_SDL.h"
   3
   4 static void*
   5 register_functions (void* data)
   6 {
   7   SDL_register_functions (NULL);
   8   return NULL;
   9 }
  10
  11 int
  12 main (int argc, char *argv[])
  13 {
  14   scm_with_guile (&register_functions, NULL);
  15   scm_init_guile ();
  16   scm_c_eval_string ("(set-repl-prompt! \"gacela>\")");
  17   scm_c_eval_string ("(use-modules (ice-9 readline))");
  18   scm_c_eval_string ("(activate-readline)");
  19   scm_shell (argc, argv);
  20 }