From 7d735a419a04ad3e1f3c276a3ba4c9097f5d1239 Mon Sep 17 00:00:00 2001 From: Christoph Egger Date: Fri, 6 Mar 2015 17:23:46 +0100 Subject: [PATCH] Start geiser server inside the GUILE interpreter --- src/gui/widgets/ScriptingDock.cxx | 9 +++++++++ 1 file changed, 9 insertions(+) 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); -- 2.39.5