From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Jun 2011 09:25:07 +0000 (-0700)
Subject: Fix out-of-place declarations.
X-Git-Tag: release-9.1.0~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2116d36094bfcb143d236f79880b5f6d963287e7;p=mit-scheme.git

Fix out-of-place declarations.
---

diff --git a/src/microcode/flonum.c b/src/microcode/flonum.c
index 1d50db419..b329015a0 100644
--- a/src/microcode/flonum.c
+++ b/src/microcode/flonum.c
@@ -332,22 +332,24 @@ DEFINE_PRIMITIVE ("CAST-IEEE754-SINGLE-TO-INTEGER", Prim_cast_ieee754_single_to_
 {
   PRIMITIVE_HEADER (1);
   CHECK_ARG (1, FLONUM_P);
+  {
+    float_uint32_t_cast cast;
 
-  float_uint32_t_cast cast;
-
-  cast.f = (float) FLONUM_TO_DOUBLE (ARG_REF (1));
+    cast.f = (float) FLONUM_TO_DOUBLE (ARG_REF (1));
 
-  PRIMITIVE_RETURN (uintmax_to_integer (cast.u32));
+    PRIMITIVE_RETURN (uintmax_to_integer (cast.u32));
+  }
 }
 
 DEFINE_PRIMITIVE ("CAST-INTEGER-TO-IEEE754-SINGLE", Prim_cast_integer_to_ieee754_single, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
   CHECK_ARG (1, INTEGER_P);
+  {
+    float_uint32_t_cast cast;
 
-  float_uint32_t_cast cast;
-
-  cast.u32 = integer_to_uintmax (ARG_REF (1));
+    cast.u32 = integer_to_uintmax (ARG_REF (1));
 
-  PRIMITIVE_RETURN (double_to_flonum ((double) cast.f));
+    PRIMITIVE_RETURN (double_to_flonum ((double) cast.f));
+  }
 }