Start geiser server inside the GUILE interpreter

diff --git a/src/gui/widgets/ScriptingDock.cxx b/src/gui/widgets/ScriptingDock.cxx
index baf38c1d4493700c0d5f5ad0746f8d56a558c3e3..6600ee6608574b8829fe0833316f807ac58c3c08 100644 (file)
--- 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);