gacela.c

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