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);
18 scm_c_eval_string("(set-repl-prompt! \"gacela>\")");
19 scm_c_eval_string("(use-modules (ice-9 readline))");
20 scm_c_eval_string("(activate-readline)");
21 scm_c_eval_string("(format #t \"eo~%\")");
22 // scm_shell (argc, argv);