From 01fcb4b748f1c38762aca086450764a586a1c3f9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 1 Oct 2004 02:26:55 +0000 Subject: [PATCH] Change WITHOUT-INTERRUPTS and WITHOUT-BACKGROUND-INTERRUPTS to use WITH-LIMITED-INTERRUPTS rather than WITH-INTERRUPT-MASK. --- v7/src/runtime/boot.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm index 930287533..8b88ff1d4 100644 --- a/v7/src/runtime/boot.scm +++ b/v7/src/runtime/boot.scm @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: boot.scm,v 14.15 2003/02/14 18:28:32 cph Exp $ +$Id: boot.scm,v 14.16 2004/10/01 02:26:55 cph Exp $ -Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology +Copyright 1986,1987,1988,1989,1990,1992 Massachusetts Institute of Technology +Copyright 1993,1996,2001,2004 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -105,13 +106,13 @@ USA. (thunk)))) (define (without-interrupts thunk) - (with-interrupt-mask interrupt-mask/gc-ok + (with-limited-interrupts interrupt-mask/gc-ok (lambda (interrupt-mask) interrupt-mask (thunk)))) (define (without-background-interrupts thunk) - (with-interrupt-mask interrupt-mask/no-background + (with-limited-interrupts interrupt-mask/no-background (lambda (interrupt-mask) interrupt-mask (thunk)))) -- 2.25.1