diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index f829ea9a8..187bd0d8a 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -485,7 +485,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy) #if SCM_HAVE_ARRAYS case '*': j = scm_read_token (c, tok_buf, port, 0); - p = scm_istr2bve (scm_c_substring_shared (*tok_buf, 1, j-1)); + p = scm_istr2bve (scm_c_substring_shared (*tok_buf, 1, j)); if (scm_is_true (p)) return p; else |