From 4248f9bea003873075c8124a2c30848c426ccc47 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 12 Mar 2019 18:23:56 -0600
Subject: [PATCH] fix hash-table sorting of symbols with non-ASCII characters

Non-ASCII characters sorted before ASCII characters, instead of after.
---
 racket/src/racket/src/sort.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/sort.c b/racket/src/racket/src/sort.c
index 25d05b5d62..f31ed3c9eb 100644
--- a/racket/src/racket/src/sort.c
+++ b/racket/src/racket/src/sort.c
@@ -57,7 +57,7 @@ static int compare_sym_likes(Scheme_Object *a, Scheme_Object *b)
   
   for (i = 0; i < l; i++) {
     if (SCHEME_SYM_VAL(a)[i] != SCHEME_SYM_VAL(b)[i])
-      return (SCHEME_SYM_VAL(a)[i] - SCHEME_SYM_VAL(b)[i]);
+      return (((unsigned char *)SCHEME_SYM_VAL(a))[i] - ((unsigned char *)SCHEME_SYM_VAL(b))[i]);
   }
 
   return SCHEME_SYM_LEN(a) - SCHEME_SYM_LEN(b);