Usually symbols are compared using eq?

codecop · Jul 3, 2024 · 236f4c0 · 236f4c0
1 parent ca75bab
commit 236f4c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/assert-r5rs.scm b/assert-r5rs.scm
@@ -62,7 +62,7 @@
     (assert-equal number->string = expected actual))
 
 (define (assert-symbol= expected actual)
-    (assert-equal symbol->string symbol=? expected actual))
+    (assert-equal symbol->string eq? expected actual))
 
 (define (assert-string= expected actual)
     (assert-equal values string=? expected actual))