From f1846a562871ffa4d5a402e9dec7d2d45ad50e32 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 13 Mar 2015 00:10:23 -0700 Subject: [PATCH] smp: Use without-interruption. Squash into 8f64b29. --- src/runtime/gdbm.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/gdbm.scm b/src/runtime/gdbm.scm index bb9f43f34..b8d324d54 100644 --- a/src/runtime/gdbm.scm +++ b/src/runtime/gdbm.scm @@ -58,7 +58,7 @@ USA. (if (not (gdbm-available?)) (error "This Scheme system was built without gdbm support.")) (let ((filename (->namestring (merge-pathnames filename)))) - (without-interrupts + (without-interruption (lambda () (add-to-gc-finalizer! gdbf-finalizer -- 2.25.1