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

Fixing typo in read-char for 4-byte utf8 values.

Browse source
This commit is contained in:
Alex Shinn 2014-04-19 20:21:33 +09:00
parent 926785804d
commit a5f6ba93e5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
eval.c
View file

@ -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 = ((i&0x1F)<<12) + ((sexp_read_char(ctx, port)&0x3F)<<6);
i += sexp_read_char(ctx, port)&0x3F; i += sexp_read_char(ctx, port)&0x3F;
} else { } 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)<<6;
i += sexp_read_char(ctx, port)&0x3F; i += sexp_read_char(ctx, port)&0x3F;
} }