From 2d594064035ed6143b2d328abe2f7008326bfec1 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 28 Jun 2014 21:54:07 +0900
Subject: [PATCH] improve test value accuracy

---
 t/r7rs-tests.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index 6fc1ae64..59903db3 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -257,7 +257,7 @@
             (mean / /))))
 (let*-values (((a b c) (means '(8 5 99 1 22))))
   (test 27 a)
-  (test 9.728 b)
+  (test 9.7280002558226410514 b)
   (test (/ 1800 497) c))
 
 (let*-values (((root rem) (exact-integer-sqrt 32)))