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)