From 6c356414537fa8394b140b6593ce31df93e4a69d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 11 Jun 2015 23:28:31 +0200 Subject: [PATCH] tests: Avoid sequence of zero expressions. * tests/records.scm ("define-record-type* with let* behavior"): Add missing body for clause. --- tests/records.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/records.scm b/tests/records.scm index 6346c154cd..800ed03827 100644 --- a/tests/records.scm +++ b/tests/records.scm @@ -56,7 +56,7 @@ (and (match (bar (x 1) (y (+ x 1)) (z (* y 2))) (($ 1 2 4) #t)) (match (bar (x 7) (z (* x 3))) - (($ 7 42 21))) + (($ 7 42 21) #t)) (match (bar (z 21) (x (/ z 3))) (($ 7 42 21) #t)))))