From: Christoph Egger Date: Fri, 6 Mar 2015 16:23:46 +0000 (+0100) Subject: Start geiser server inside the GUILE interpreter X-Git-Tag: v0.1~64 X-Git-Url: https://git.siccegge.de//index.cgi?a=commitdiff_plain;ds=inline;h=7d735a419a04ad3e1f3c276a3ba4c9097f5d1239;p=frida%2Ffrida.git Start geiser server inside the GUILE interpreter --- diff --git a/src/gui/widgets/ScriptingDock.cxx b/src/gui/widgets/ScriptingDock.cxx index baf38c1..6600ee6 100644 --- a/src/gui/widgets/ScriptingDock.cxx +++ b/src/gui/widgets/ScriptingDock.cxx @@ -21,6 +21,15 @@ ScriptingDock::ScriptingDock(const QString& title, QWidget * parent) connect(button, SIGNAL(released()), this, SLOT(doEvaluate())); connect(line, SIGNAL(returnPressed()), this, SLOT(doEvaluate())); 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);