From: Arthur A. Gleckler <gnu@speechcode.com>
Date: Thu, 2 Sep 2010 05:29:34 +0000 (-0700)
Subject: Fixed code formatting.
X-Git-Tag: 20101212-Gtk~70
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=48fe8ba7167f0661b169981520d95d340027635a;p=mit-scheme.git

Fixed code formatting.
---

diff --git a/tests/microcode/test-flonum-casts.scm b/tests/microcode/test-flonum-casts.scm
index 31e7162b7..0d933e665 100644
--- 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?