From ece6500f99de4ed776725d0afabf26cb14a522c7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 27 Feb 2011 18:00:46 +0900 Subject: [PATCH] fixing bug #61 in string ports > 1024 chars (thanks tizoc) --- sexp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sexp.c b/sexp.c index 2b87412a..f08ec769 100644 --- a/sexp.c +++ b/sexp.c @@ -1014,7 +1014,7 @@ int sstream_read (void *vec, char *dst, int n) { if (pos >= len) return 0; if (n > (len - pos)) n = (len - pos); 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; }