Fixed code formatting.

diff --git a/tests/microcode/test-flonum-casts.scm b/tests/microcode/test-flonum-casts.scm
index 31e7162b74bba4a75e90b60236ea00aec5a75982..0d933e6659b149029fe799b66103196ffeedd973 100644 (file)
--- a/tests/microcode/test-flonum-casts.scm
+++ b/tests/microcode/test-flonum-casts.scm
@@ -59,22 +59,30 @@ USA.
                        integer-to-double
                        64))
 
-    (test-double 0.0
-         #*0000000000000000000000000000000000000000000000000000000000000000)
-    (test-double -0.0
-         #*1000000000000000000000000000000000000000000000000000000000000000)
-    (test-double 1.0
-         #*0011111111110000000000000000000000000000000000000000000000000000)
-    (test-double 2.0
-         #*0100000000000000000000000000000000000000000000000000000000000000)
-    (test-double 4.0
-         #*0100000000010000000000000000000000000000000000000000000000000000)
-    (test-double 8.0
-         #*0100000000100000000000000000000000000000000000000000000000000000)
-    (test-double (->flonum (factorial 100))
-         #*0110000010111011001100001001011001001110110000111001010111011100)
-    (test-double -1.0
-         #*1011111111110000000000000000000000000000000000000000000000000000)
+    (test-double
+     0.0
+     #*0000000000000000000000000000000000000000000000000000000000000000)
+    (test-double
+     -0.0
+     #*1000000000000000000000000000000000000000000000000000000000000000)
+    (test-double
+     1.0
+     #*0011111111110000000000000000000000000000000000000000000000000000)
+    (test-double
+     2.0
+     #*0100000000000000000000000000000000000000000000000000000000000000)
+    (test-double
+     4.0
+     #*0100000000010000000000000000000000000000000000000000000000000000)
+    (test-double
+     8.0
+     #*0100000000100000000000000000000000000000000000000000000000000000)
+    (test-double
+     (->flonum (factorial 100))
+     #*0110000010111011001100001001011001001110110000111001010111011100)
+    (test-double
+     -1.0
+     #*1011111111110000000000000000000000000000000000000000000000000000)
 
     (assert-true
      (flo:nan?
@@ -103,21 +111,21 @@ USA.
                        32))
 
     (test-single 0.0
-         #*00000000000000000000000000000000)
+                #*00000000000000000000000000000000)
     (test-single -0.0
-         #*10000000000000000000000000000000)
+                #*10000000000000000000000000000000)
     (test-single 1.0
-         #*00111111100000000000000000000000)
+                #*00111111100000000000000000000000)
     (test-single 2.0
-         #*01000000000000000000000000000000)
+                #*01000000000000000000000000000000)
     (test-single 4.0
-         #*01000000100000000000000000000000)
+                #*01000000100000000000000000000000)
     (test-single 8.0
-         #*01000001000000000000000000000000)
+                #*01000001000000000000000000000000)
     (test-single (->flonum (factorial 10))
-         #*01001010010111010111110000000000)
+                #*01001010010111010111110000000000)
     (test-single -1.0
-         #*10111111100000000000000000000000)
+                #*10111111100000000000000000000000)
 
     (assert-true
      (flo:nan?