From 60c96d76a4fa151081bdd4133a450b6a4077fb52 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 13 Oct 2012 21:59:38 +0900
Subject: [PATCH] Checking for utf8 encoding exceptions in read/peek-char.

---
 vm.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/vm.c b/vm.c
index c03cb5cf..0a33e1d2 100644
--- a/vm.c
+++ b/vm.c
@@ -2022,6 +2022,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
       if (i == '\n') sexp_port_line(_ARG1)++;
       _ARG1 = sexp_make_character(i);
     }
+    sexp_check_exception();
     break;
   case SEXP_OP_PEEK_CHAR:
     if (! sexp_iportp(_ARG1))
@@ -2047,6 +2048,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
       sexp_push_char(ctx, i, _ARG1);
       _ARG1 = sexp_make_character(i);
     }
+    sexp_check_exception();
     break;
   case SEXP_OP_YIELD:
 #if SEXP_USE_GREEN_THREADS