From ef4616f943c15d40cc2ff189b70e0ef6251af561 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 28 Aug 2001 16:38:06 +0000
Subject: guile integration

---
 mixgtk/gmixvm.c | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'mixgtk/gmixvm.c')

diff --git a/mixgtk/gmixvm.c b/mixgtk/gmixvm.c
index 6326957..59b4b41 100644
--- a/mixgtk/gmixvm.c
+++ b/mixgtk/gmixvm.c
@@ -24,13 +24,31 @@
 #include <stdlib.h>
 #include "mixgtk.h"
 
+
+#ifdef MAKE_GUILE
+#  include <mixguile/mixguile.h>
+#  include "mixgtk_cmd_dispatcher.h"
+static void
+inner_main_ (int argc, char *argv[])
+{
+  mixgtk_init (argc, argv);
+  mixguile_set_cmd_dispatcher (mixgtk_cmd_dispatcher_get_mix_dispatcher ());
+  mixguile_load_bootstrap ();
+  mixgtk_main ();
+  mixgtk_release ();
+}
+#endif
+
 int
 main(int argc, char *argv[])
 {
+#ifdef MAKE_GUILE
+  mixguile_enter (argc, argv, inner_main_);
+#else
   if (!mixgtk_init (argc, argv)) return EXIT_FAILURE;
-
   mixgtk_main ();
   mixgtk_release ();
-  
+#endif
+
   return EXIT_SUCCESS;
 }
-- 
cgit v1.2.3