adding symbol assertion

codecop · Jun 22, 2024 · 167249a · 167249a
1 parent 24746fd
commit 167249a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/assert-r5rs.scm b/assert-r5rs.scm
@@ -61,6 +61,9 @@
 (define (assert= expected actual)
     (assert-equal number->string = expected actual))
 
+(define (assert-symbol= expected actual)
+    (assert-equal symbol->string symbol=? expected actual))
+
 (define (assert-string= expected actual)
     (assert-equal values string=? expected actual))