guile/guile-gtkthreads ChangeLog configure.in g...

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/02/17 13:07:29

Modified files:
        guile-gtkthreads: ChangeLog configure.in gtkthreads.c 

Log message:
        * configure.in: Check for scm_set_current_module.
        
        * gtkthreads.c (scm_set_current_module): Define as
        scm_select_module if scm_set_current_module isn't found.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-gtkthreads/ChangeLog.diff?r1=1.12&r2=1.13
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-gtkthreads/configure.in.diff?r1=1.6&r2=1.7
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-gtkthreads/gtkthreads.c.diff?r1=1.5&r2=1.6

Patches:
Index: guile/guile-gtkthreads/ChangeLog
diff -u guile/guile-gtkthreads/ChangeLog:1.12 
guile/guile-gtkthreads/ChangeLog:1.13
--- guile/guile-gtkthreads/ChangeLog:1.12       Sat Apr  8 16:28:36 2000
+++ guile/guile-gtkthreads/ChangeLog    Sat Feb 17 13:07:29 2001
@@ -1,3 +1,10 @@
+2001-02-17  Mikael Djurfeldt  <address@hidden>
+
+       * configure.in: Check for scm_set_current_module.
+
+       * gtkthreads.c (scm_set_current_module): Define as
+       scm_select_module if scm_set_current_module isn't found.
+
 2000-04-09  Mikael Djurfeldt  <address@hidden>
 
        * GTKTHREADS-VERSION: Release of 1.0.
Index: guile/guile-gtkthreads/configure.in
diff -u guile/guile-gtkthreads/configure.in:1.6 
guile/guile-gtkthreads/configure.in:1.7
--- guile/guile-gtkthreads/configure.in:1.6     Thu Jun 22 02:16:35 2000
+++ guile/guile-gtkthreads/configure.in Sat Feb 17 13:07:29 2001
@@ -60,7 +60,7 @@
   AC_DEFINE(HAVE_THREAD_CREATE)
 fi
 
-AC_CHECK_FUNCS(sgtk_gdk_threads_enter)
+AC_CHECK_FUNCS(sgtk_gdk_threads_enter scm_set_current_module)
 
 AC_OUTPUT(Makefile)
 
Index: guile/guile-gtkthreads/gtkthreads.c
diff -u guile/guile-gtkthreads/gtkthreads.c:1.5 
guile/guile-gtkthreads/gtkthreads.c:1.6
--- guile/guile-gtkthreads/gtkthreads.c:1.5     Sat Apr  8 16:27:47 2000
+++ guile/guile-gtkthreads/gtkthreads.c Sat Feb 17 13:07:29 2001
@@ -1,5 +1,5 @@
 /* Component of libguilegtkthreads.a
- * Copyright (C) 2000 Free Software Foundation
+ * Copyright (C) 2000, 2001 Free Software Foundation
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -167,11 +167,15 @@
 
 #endif /* HAVE_SGTK_GDK_THREADS_ENTER */
 
+#ifndef HAVE_SCM_SET_CURRENT_MODULE
+#define scm_set_current_module scm_select_module
+#endif
+
 void
 scm_init_gtkthreads ()
 {
   SCM threads_module = scm_make_module (scm_read_0str ("(gtk threads)"));
-  SCM old_module = scm_select_module (threads_module);
+  SCM old_module = scm_set_current_module (threads_module);
   scm_init_gthread ();
   g_main_set_poll_func (g_poll);
 #ifdef GUILE_GTKTHREADS_UPDATE
@@ -184,7 +188,7 @@
   g_main_add_poll (&wake_up_rec, 0);
 #endif
 #include "gtkthreads.x"
-  scm_select_module (old_module);
+  scm_set_current_module (old_module);
 }
 
 void