Fix out-of-place declarations.

diff --git a/src/microcode/flonum.c b/src/microcode/flonum.c
index 1d50db4197309116b24508e340ba4727abf4768e..b329015a00c2ffb3d9b4172b7dab99320c256d89 100644 (file)
--- 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));
+  }
 }