Make guile switchable in GNUmakefile.

[mes.git] / tests / cwv.test

diff --git a/tests/cwv.test b/tests/cwv.test
index bdd450ad32d71f9a1bfc61b91c7517860f6c7220..28d673e2ba9f074cffd1216d0a8c38aa25a279c5 100755 (executable)
--- a/tests/cwv.test
+++ b/tests/cwv.test
@@ -28,9 +28,12 @@ exit $?
 (mes-use-module (mes scm))
 (mes-use-module (mes test))
 
 (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))
 (pass-if "call-with-values" (seq? (call-with-values (lambda () (values 1 2 3))
                                     (lambda (a b c) (+ a b c)))
                                   6))