aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/lread.c4
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)