From 95a4a49dc73ab8bba7b463e4e5b02f859a3eb1fe Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 25 May 2022 23:03:55 -0400
Subject: [PATCH] Add tests for `equal?`

---
 circ-test.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/circ-test.scm b/circ-test.scm
index 0c3c9056..0201c36b 100644
--- a/circ-test.scm
+++ b/circ-test.scm
@@ -4,22 +4,29 @@
 (define v2 (vector v1))
 (vector-set! v1 0 v2)
 (display v1)
-;(equal? v1 v2)
+(display (equal? v1 v2))
+(newline)
 
 (define v1 (vector 1 2 3))
 (define v2 (vector 1 v1 3))
 (vector-set! v1 1 v2)
 (display v1)
+;(display (equal? v1 v2))
+(newline)
 
 (define l1 (list #f))
 (define l2 (list l1))
 (set-cdr! l1 l2)
 (display l1)
+(display (equal? l1 l2))
+(newline)
 
 (define l1 (list 1 2 3))
 (define l2 (list 1 l1 3))
 (set-cdr! (cdr l1) l2)
 (write l1)
+(display (equal? l1 l2))
+(newline)
 
 ; TODO: need to compare pointers to prevent this sort of thing:
 ;