smp: Punt a without-interrupts. Squash into 60db1a8.

diff --git a/src/runtime/floenv.scm b/src/runtime/floenv.scm
index 445fc927f94207576228e8062af3a6228d70bb38..8d1f684924b219edceef0ef6b85ddc4d4ef5b6f4 100644 (file)
--- 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!)