Add SWIG bindings for the guile interpreter

[frida/frida.git] / src / bindings / Guile.cxx

diff --git a/src/bindings/Guile.cxx b/src/bindings/Guile.cxx
index 2552e7d215ab8b97e85edfc77a372a7fe13f6e2e..57d32bdd8009d02cd8fe2fad1762cf08bb5cfbbc 100644 (file)
--- a/src/bindings/Guile.cxx
+++ b/src/bindings/Guile.cxx
@@ -18,6 +18,10 @@ GuileInterpreter::GuileInterpreter() {
                           (SCM (*)(void *))scm_c_eval_string,
                           (void*)"(spawn-server)",
                           handler, NULL);
+       scm_internal_catch(SCM_BOOL_T,
+                          (SCM (*)(void *))scm_c_eval_string,
+                          (void*)"(load-extension \"libfrida-guile\" \"scm_init_frida_module\")",
+                          handler, NULL);
 
        guile_output_port = scm_open_output_string();
        guile_error_port = scm_open_output_string();