From d1efacb9c4a1eeb52005da3ba9f37b34b407f384 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 2 Sep 2013 20:46:43 +0900
Subject: [PATCH] Updating compose example to force exact result.

---
 tests/r7rs-tests.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index 5ac75241..c139005d 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -1320,7 +1320,9 @@
   (lambda (f g)
     (lambda args
       (f (apply g args)))))
-(test 30 ((compose sqrt *) 12 75))
+(test '(30 0)
+    (call-with-values (lambda () ((compose exact-integer-sqrt *) 12 75))
+      list))
 
 (test '(b e h) (map cadr '((a b) (d e) (g h))))