- SCM result_obj = scm_internal_catch(SCM_BOOL_T,
- (SCM (*)(void *))scm_c_eval_string,
- (void*)text.toStdString().c_str(),
- handler, NULL);
- SCM result_str = scm_object_to_string(result_obj, SCM_UNDEFINED);
-
- SCM output = scm_get_output_string(guile_output_port);
- QString output_q = scm_to_locale_string(output);
- if (output_q.endsWith("\n")) output_q.chop(1);
- if (output_q != "") browser->append(output_q);
+ interpreter->evaluate(text.toStdString(), stdout, stderr, result);