guile_error_port = scm_open_output_string();
scm_set_current_output_port(guile_output_port);
scm_set_current_error_port(guile_error_port);
guile_error_port = scm_open_output_string();
scm_set_current_output_port(guile_output_port);
scm_set_current_error_port(guile_error_port);