From b8483843d65ee734882c4477de994c1931be17ad Mon Sep 17 00:00:00 2001
From: Prefetch
Date: Tue, 26 Mar 2024 21:42:40 +0100
Subject: For testing days 1-5, use "equal?" instead of "="

---
 04/test.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to '04/test.scm')

diff --git a/04/test.scm b/04/test.scm
index 564016a..d0c3291 100644
--- a/04/test.scm
+++ b/04/test.scm
@@ -6,7 +6,7 @@
 ; My quick-and-dirty unit testing framework (copied for each day)
 (define (run-test name proc input expected)
   (let ((result (proc input)))
-    (if (= result expected)
+    (if (equal? result expected)
       (printf "\x1b;[32;1mPASS\x1b;[0m: ~a\n"
               name)
       (printf "\x1b;[31;1mFAIL\x1b;[0m: ~a: got ~a, expected ~a\n"
-- 
cgit v1.2.3