From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sun, 11 Mar 2018 21:15:51 +0000 (-0700)
Subject: glib (run-glib-cleanups): Run cleanups without-interruption.
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~55
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c8ab81a146032e71a4e9ae790a33166699c48f1;p=mit-scheme.git

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

diff --git a/src/glib/glib.scm b/src/glib/glib.scm
index 6dd371982..252fa0580 100644
--- 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))