Add unicode support to equal?.

diff --git a/src/runtime/equals.scm b/src/runtime/equals.scm
index 8c5147b281a17e73ca38a8317f67effb2dc32ba3..7ce4f8c2b736c739e6f45d0cd794b115da96ebdd 100644 (file)
--- a/src/runtime/equals.scm
+++ b/src/runtime/equals.scm
@@ -61,8 +61,8 @@ USA.
                                   (loop (fix:+ index 1))))))))
                ((bytevector? y)
                 (bytevector=? x y))
-               ((string? y)
-                (string=? x y))
+               ((ustring? y)
+                (ustring=? x y))
                ((number? y)
                 (number:eqv? x y))
                ((cell? y)