diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 0a6e4201e40..68bc1431765 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3375,7 +3375,7 @@ read_bool_vector (Lisp_Object readcharfun) | |||
| 3375 | break; | 3375 | break; |
| 3376 | } | 3376 | } |
| 3377 | if (INT_MULTIPLY_WRAPV (length, 10, &length) | 3377 | if (INT_MULTIPLY_WRAPV (length, 10, &length) |
| 3378 | | INT_ADD_WRAPV (length, c - '0', &length)) | 3378 | || INT_ADD_WRAPV (length, c - '0', &length)) |
| 3379 | invalid_syntax ("#&", readcharfun); | 3379 | invalid_syntax ("#&", readcharfun); |
| 3380 | } | 3380 | } |
| 3381 | 3381 | ||
| @@ -3421,7 +3421,7 @@ skip_lazy_string (Lisp_Object readcharfun) | |||
| 3421 | break; | 3421 | break; |
| 3422 | } | 3422 | } |
| 3423 | if (INT_MULTIPLY_WRAPV (nskip, 10, &nskip) | 3423 | if (INT_MULTIPLY_WRAPV (nskip, 10, &nskip) |
| 3424 | | INT_ADD_WRAPV (nskip, c - '0', &nskip)) | 3424 | || INT_ADD_WRAPV (nskip, c - '0', &nskip)) |
| 3425 | invalid_syntax ("#@", readcharfun); | 3425 | invalid_syntax ("#@", readcharfun); |
| 3426 | digits++; | 3426 | digits++; |
| 3427 | if (digits == 2 && nskip == 0) | 3427 | if (digits == 2 && nskip == 0) |