From 22a68d10977da0e26e12356f2b560c609f045548 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 21 May 2020 18:39:48 -0400
Subject: [PATCH] Fix unit tests

---
 tests/unit-tests.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/unit-tests.scm b/tests/unit-tests.scm
index 86d01acd..e6f2a657 100644
--- a/tests/unit-tests.scm
+++ b/tests/unit-tests.scm
@@ -203,11 +203,11 @@
 (assert:equal "" (eq? 'a-1 'a-1) #t)
 (assert:equal "" (eq? (string->symbol "aa") 'aa) #t)
 (assert:equal "" (eq? 0.0 0.0) #f)
-(assert:equal "" (eq? 33333333333333 3333333333333333) #f)
+(assert:equal "" (eq? 33333333333333 33333333333333) #f)
 (assert:equal "" (eqv? 'a-1 'a-1) #t)
 (assert:equal "" (eqv? (string->symbol "aa") 'aa) #t)
 (assert:equal "" (eqv? 0.0 0.0) #t)
-(assert:equal "" (eqv? 33333333333333 3333333333333333) #t)
+(assert:equal "" (eqv? 33333333333333 33333333333333) #t)
 (assert:equal "" (equal? (string->symbol "aa") 'aa) #t)
 
 ;; Map