X-Git-Url: https://jxself.org/git/?p=mes.git;a=blobdiff_plain;f=tests%2Fcwv.test;h=28d673e2ba9f074cffd1216d0a8c38aa25a279c5;hp=bdd450ad32d71f9a1bfc61b91c7517860f6c7220;hb=f3c464d07b172206994ed4acdb792ad45e7bb8bf;hpb=2b577eaee0c5a31c68e9be308bfc22ed4a28bdfb

diff --git a/tests/cwv.test b/tests/cwv.test
index bdd450ad..28d673e2 100755
--- a/tests/cwv.test
+++ b/tests/cwv.test
@@ -28,9 +28,12 @@ exit $?
 (mes-use-module (mes scm))
 (mes-use-module (mes test))
 
-(pass-if "values" (seq? (values 0 1) 0))
-(pass-if "values 2" (seq? ((lambda (x) x) (values 1 2 3)) 1))
-(pass-if "values 3" (seq? 1 ((lambda (x) x) (values 1 2 3))))
+(if (not guile-1.8?)
+    (pass-if "values" (seq? (values 0 1) 0)))
+(if (not guile-1.8?)
+    (pass-if "values 2" (seq? ((lambda (x) x) (values 1 2 3)) 1)))
+(if (not guile-1.8?)
+    (pass-if "values 3" (seq? 1 ((lambda (x) x) (values 1 2 3)))))
 (pass-if "call-with-values" (seq? (call-with-values (lambda () (values 1 2 3))
                                     (lambda (a b c) (+ a b c)))
                                   6))