From 368e2f15c2674610c3324b0e8e548fdde7dcd373 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 13 Mar 2015 00:18:17 -0700 Subject: [PATCH] smp: Punt a without-interrupts. Squash into 60db1a8. --- src/runtime/floenv.scm | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/src/runtime/floenv.scm b/src/runtime/floenv.scm index 445fc927f..8d1f68492 100644 --- a/src/runtime/floenv.scm +++ b/src/runtime/floenv.scm @@ -153,20 +153,18 @@ USA. (define (reset-package!) (set! default-environment - (without-interrupts - (lambda () - (let ((fp-env ((ucode-primitive FLOAT-ENVIRONMENT 0)))) - ((ucode-primitive SET-FLOAT-ROUNDING-MODE 1) - (%mode-name->number - (flo:default-rounding-mode) - '|#[(runtime floating-point-environment)reset-package!]|)) - ((ucode-primitive CLEAR-FLOAT-EXCEPTIONS 1) - (flo:supported-exceptions)) - ((ucode-primitive SET-TRAPPED-FLOAT-EXCEPTIONS 1) - (flo:default-trapped-exceptions)) - (let ((fp-env* ((ucode-primitive FLOAT-ENVIRONMENT 0)))) - ((ucode-primitive SET-FLOAT-ENVIRONMENT 1) fp-env) - fp-env*))))) + (let ((fp-env ((ucode-primitive FLOAT-ENVIRONMENT 0)))) + ((ucode-primitive SET-FLOAT-ROUNDING-MODE 1) + (%mode-name->number + (flo:default-rounding-mode) + '|#[(runtime floating-point-environment)reset-package!]|)) + ((ucode-primitive CLEAR-FLOAT-EXCEPTIONS 1) + (flo:supported-exceptions)) + ((ucode-primitive SET-TRAPPED-FLOAT-EXCEPTIONS 1) + (flo:default-trapped-exceptions)) + (let ((fp-env* ((ucode-primitive FLOAT-ENVIRONMENT 0)))) + ((ucode-primitive SET-FLOAT-ENVIRONMENT 1) fp-env) + fp-env*))) unspecific) (define (initialize-package!) -- 2.25.1