From: Christoph Egger <Christoph.Egger@fau.de>
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;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);