From f345832b44d9afcaaf03e83cae27d91466b01e96 Mon Sep 17 00:00:00 2001
From: OGINO Masanori <masanori.ogino@gmail.com>
Date: Tue, 21 Jul 2015 15:16:04 +0900
Subject: [PATCH] Add an optional comparator argument to test.

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
---
 contrib/30.test/test.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/contrib/30.test/test.scm b/contrib/30.test/test.scm
index db71bd1d..76455882 100644
--- a/contrib/30.test/test.scm
+++ b/contrib/30.test/test.scm
@@ -36,10 +36,12 @@
   (define-syntax test
     (syntax-rules ()
       ((test expected expr)
+       (test expected expr equal?))
+      ((test expected expr =)
        (let ((res expr))
          (display "case ")
          (write counter)
-         (if (equal? res expected)
+         (if (= res expected)
            (begin
              (display " PASS: ")
              (write 'expr)