From 0c8ab81a146032e71a4e9ae790a33166699c48f1 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 11 Mar 2018 14:15:51 -0700 Subject: [PATCH] glib (run-glib-cleanups): Run cleanups without-interruption. --- src/glib/glib.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.25.1