From 69fea89689bd6107afd18c1eb25ff8392ff0d1cb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Jan 2017 20:36:36 -0800
Subject: [PATCH] Add unicode support to equal?.

---
 src/runtime/equals.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1