From f39c5010efcfb732b3fc78fd2f716dd1db73f393 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 Oct 2005 20:00:47 +0000
Subject: [PATCH] utf-16 bug fixed

svn: r985
---
 src/mzscheme/src/string.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/src/string.c b/src/mzscheme/src/string.c
index 7e4c203507..746355ee4d 100644
--- a/src/mzscheme/src/string.c
+++ b/src/mzscheme/src/string.c
@@ -4227,8 +4227,8 @@ unsigned short *scheme_ucs4_to_utf16(const mzchar *text, int start, int end,
   for (i = start, j = 0; i < end; i++) {
     v = text[i];
     if (v > 0xFFFF) {
-      utf16[j++] = 0xD8000 | ((v >> 10) & 0x3FF);
-      utf16[j++] = 0xDC000 | (v & 0x3FF);
+      utf16[j++] = 0xD800 | ((v >> 10) & 0x3FF);
+      utf16[j++] = 0xDC00 | (v & 0x3FF);
     } else
       utf16[j++] = v;
   }