X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_core.c;fp=gacela_core.c;h=0000000000000000000000000000000000000000;hb=9ac80e4e818a034712d1138562cfad341eb6cfdc;hp=47a849cfd6b4025df96ac4f9ab48d455102a7c52;hpb=34d7fb9e3b5125539be506237fbe41854ed174bd;p=gacela.git diff --git a/gacela_core.c b/gacela_core.c deleted file mode 100644 index 47a849c..0000000 --- a/gacela_core.c +++ /dev/null @@ -1,24 +0,0 @@ -//#include -//#include -#include - -static void* -register_functions (void* data) -{ - // scm_c_define_gsubr ("prueba", 0, 0, 0, &prueba); -// scm_c_define_gsubr ("ver-contador", 0, 0, 0, &ver_contador); -// scm_c_define_gsubr ("lanzar-bucle", 0, 0, 0, &lanzar_bucle); - return NULL; -} - - -int main (int argc, char *argv[]) { - // scm_with_guile (®ister_functions, NULL); - scm_init_guile(); - scm_c_eval_string("(set-repl-prompt! \"gacela>\")"); - scm_c_eval_string("(use-modules (ice-9 readline))"); - scm_c_eval_string("(activate-readline)"); - scm_c_eval_string("(format #t \"eo~%\")"); -// scm_shell (argc, argv); -} -