From a5f6ba93e55714572bdc1e15f9fe6a58e0ef699e Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 19 Apr 2014 20:21:33 +0900
Subject: [PATCH] Fixing typo in read-char for 4-byte utf8 values.

---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 38bdaeac..55cb7af9 100644
--- a/eval.c
+++ b/eval.c
@@ -1755,7 +1755,7 @@ sexp sexp_read_utf8_char (sexp ctx, sexp port, int i) {
       i = ((i&0x1F)<<12) + ((sexp_read_char(ctx, port)&0x3F)<<6);
       i += sexp_read_char(ctx, port)&0x3F;
     } else {
-      i = ((i&0x0F)<<16) + ((sexp_read_char(ctx, port)&0x3F)<<6);
+      i = ((i&0x0F)<<16) + ((sexp_read_char(ctx, port)&0x3F)<<12);
       i += (sexp_read_char(ctx, port)&0x3F)<<6;
       i += sexp_read_char(ctx, port)&0x3F;
     }