From 48fe8ba7167f0661b169981520d95d340027635a Mon Sep 17 00:00:00 2001 From: "Arthur A. Gleckler" Date: Wed, 1 Sep 2010 22:29:34 -0700 Subject: [PATCH] Fixed code formatting. --- tests/microcode/test-flonum-casts.scm | 56 +++++++++++++++------------ 1 file changed, 32 insertions(+), 24 deletions(-) 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? -- 2.25.1