glib (run-glib-cleanups): Run cleanups without-interruption.

diff --git a/src/glib/glib.scm b/src/glib/glib.scm
index 6dd3719820a587221cc0a36ca8cb0a0894f08e86..252fa05800eb280b52fd560299bad25aa0043a69 100644 (file)
--- a/src/glib/glib.scm
+++ b/src/glib/glib.scm
@@ -152,7 +152,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
            (loop (cdr alist) alist)
            (let ((thunk (weak-cdr (car alist)))
                  (next (cdr alist)))
-             (with-glib-error-handler "this GLib cleanup" thunk)
+             (with-glib-error-handler
+              "this GLib cleanup"
+              (lambda () (without-interruption thunk)))
              (if prev
                  (set-cdr! prev next)
                  (set! glib-cleanups next))