X-Git-Url: https://git.siccegge.de//index.cgi?p=frida%2Ffrida.git;a=blobdiff_plain;f=src%2Fgui%2Fwidgets%2FScriptingDock.cxx;h=6600ee6608574b8829fe0833316f807ac58c3c08;hp=baf38c1d4493700c0d5f5ad0746f8d56a558c3e3;hb=7d735a419a04ad3e1f3c276a3ba4c9097f5d1239;hpb=788d2cf483ac868d2ce1e2007b578fc798853760

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);