From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 04:36:36 +0000 (-0800)
Subject: Add unicode support to equal?.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~61
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69fea89689bd6107afd18c1eb25ff8392ff0d1cb;p=mit-scheme.git

Add unicode support to equal?.
---

diff --git a/src/runtime/equals.scm b/src/runtime/equals.scm
index 8c5147b28..7ce4f8c2b 100644
--- 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)