6 register_functions (void* data)
8 scm_c_define_gsubr ("prueba", 0, 0, 0, &prueba);
9 // scm_c_define_gsubr ("ver-contador", 0, 0, 0, &ver_contador);
10 scm_c_define_gsubr ("lanzar-bucle", 0, 0, 0, &lanzar_bucle);
15 int main (int argc, char *argv[]) {
16 scm_with_guile (®ister_functions, NULL);
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);