From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 13 Mar 2015 07:18:17 +0000 (-0700)
Subject: smp: Punt a without-interrupts.  Squash into 60db1a8.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=368e2f15c2674610c3324b0e8e548fdde7dcd373;p=mit-scheme.git

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

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!)