From f3e146ca834293e73c16997830e6b874e64e1a43 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 13 Mar 2015 00:15:50 -0700 Subject: [PATCH] smp: Use without-interruption. Squash into ba4c087. --- src/runtime/generic.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/runtime/generic.scm b/src/runtime/generic.scm index de020f93a..4fcaeebaa 100644 --- a/src/runtime/generic.scm +++ b/src/runtime/generic.scm @@ -105,7 +105,7 @@ USA. (guarantee-generic-procedure generic 'SET-GENERIC-PROCEDURE-GENERATOR!))) (guarantee-generator generator 'SET-GENERIC-PROCEDURE-GENERATOR!) - (without-interrupts + (without-interruption (lambda () (set-generic-record/generator! record generator) (%reset-generic-procedure-cache! record))))) @@ -135,7 +135,7 @@ USA. (define (%purge-generic-procedure-cache! generic record filter) ;; This might have interrupts locked for a long time, and thus is an ;; argument for using something like a semaphore to control access. - (without-interrupts + (without-interruption (lambda () (set-generic-record/cache! record @@ -282,7 +282,7 @@ USA. (generic (generic-record/procedure record))) (or (and generator (generator generic tags)) (error:no-applicable-methods generic args))))) - (without-interrupts + (without-interruption (lambda () (set-generic-record/cache! record -- 2.25.1