]> git.jsancho.org Git - gacela.git/blob - src/gacela.c
(no commit message)
[gacela.git] / 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 }