- scm_init_guile();
- scm_internal_catch(SCM_BOOL_T,
- (SCM (*)(void *))scm_c_eval_string,
- (void*)"(use-modules (system repl server))",
- handler, NULL);
- scm_internal_catch(SCM_BOOL_T,
- (SCM (*)(void *))scm_c_eval_string,
- (void*)"(spawn-server)",
- handler, NULL);
-
- guile_output_port = scm_open_output_string();
- guile_error_port = scm_open_output_string();
- scm_set_current_output_port(guile_output_port);
- scm_set_current_error_port(guile_error_port);