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

fixing bug #61 in string ports > 1024 chars (thanks tizoc)

Browse source
This commit is contained in:
Alex Shinn 2011-02-27 18:00:46 +09:00
parent 208819a4e4
commit ece6500f99
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

@ -1014,7 +1014,7 @@ int sstream_read (void *vec, char *dst, int n) {
if (pos >= len) return 0; if (pos >= len) return 0;
if (n > (len - pos)) n = (len - pos); if (n > (len - pos)) n = (len - pos);
memcpy(dst, sexp_string_data(sexp_stream_buf(vec))+pos, n); memcpy(dst, sexp_string_data(sexp_stream_buf(vec))+pos, n);
sexp_stream_pos_set(vec, sexp_make_fixnum(n)); sexp_stream_pos_set(vec, sexp_make_fixnum(pos + n));
return n; return n;
} }