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

write unsigned char values for bytevectors

Browse source
This commit is contained in:
Alex Shinn 2011-11-26 12:41:54 +09:00
parent 8094d585b8
commit 1bc31ff9c1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -1595,7 +1595,7 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
len = sexp_bytes_length(obj); len = sexp_bytes_length(obj);
for (i=0; i<len; i++) { for (i=0; i<len; i++) {
if (i!=0) sexp_write_char(ctx, ' ', out); if (i!=0) sexp_write_char(ctx, ' ', out);
sexp_write(ctx, sexp_make_fixnum(str[i]), out); sexp_write(ctx, sexp_make_fixnum(((unsigned char*)str)[i]), out);
} }
sexp_write_char(ctx, ')', out); sexp_write_char(ctx, ')', out);
break; break;