Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Checking for utf8 encoding exceptions in read/peek-char.

Browse source
This commit is contained in:
Alex Shinn 2012-10-13 21:59:38 +09:00
parent fc1a1bd393
commit 60c96d76a4
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -2022,6 +2022,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
if (i == '\n') sexp_port_line(_ARG1)++; if (i == '\n') sexp_port_line(_ARG1)++;
_ARG1 = sexp_make_character(i); _ARG1 = sexp_make_character(i);
} }
sexp_check_exception();
break; break;
case SEXP_OP_PEEK_CHAR: case SEXP_OP_PEEK_CHAR:
if (! sexp_iportp(_ARG1)) if (! sexp_iportp(_ARG1))
@ -2047,6 +2048,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
sexp_push_char(ctx, i, _ARG1); sexp_push_char(ctx, i, _ARG1);
_ARG1 = sexp_make_character(i); _ARG1 = sexp_make_character(i);
} }
sexp_check_exception();
break; break;
case SEXP_OP_YIELD: case SEXP_OP_YIELD:
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS