R6RS test suite fixes from Will

svn: r10904

collects/tests/r6rs/base.sls

@@ -1301,7 +1301,7 @@
 
     ;; 11.15
     (test (apply + (list 3 4))               7)
-    (test ((compose sqrt *) 12 75)               30)
+    (test/approx ((compose sqrt *) 12 75)    30)
     
     (test (call-with-current-continuation
            (lambda (exit)

collects/tests/r6rs/lists.sls

@@ -124,7 +124,8 @@
     (test (for-all even? '(13 . 14)) #f)
     (test (for-all cons '(1 2 3) '(a b c)) '(3 . c))
     (test (for-all (lambda (a b) (= a 1)) '(1 2 3) '(a b c)) #f)
-    (test (for-all (lambda (a b) (= a 1)) '(1 2) '(a b c)) #f)
+    ;; R6RS merely says that this *should* work, but not must:
+    ;; (test (for-all (lambda (a b) (= a 1)) '(1 2) '(a b c)) #f)
     (test (fold-left + 0 '(1 2 3 4 5)) 15)
     (test (fold-left (lambda (a b) (cons b a)) '() '(1 2 3 4 5))
           '(5 4 3 2 1))

collects/tests/r6rs/syntax-case.sls

@@ -197,7 +197,6 @@
              (let ([v #'#(x ...)])
                (list (syntax->datum v) (vector? v)))])
           '(#() #t))
-    (test (vector? #'#(1 2 3)) #f)
     (test (syntax-case #'(1) ()
             [(_) (syntax->datum #'_)])
           '_)