diff options
Diffstat (limited to 'src/json.c')
| -rw-r--r-- | src/json.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/json.c b/src/json.c index 8b365e3795c..17cc0965b12 100644 --- a/src/json.c +++ b/src/json.c | |||
| @@ -740,7 +740,7 @@ json_to_lisp (json_t *json, struct json_configuration *conf) | |||
| 740 | xsignal0 (Qjson_object_too_deep); | 740 | xsignal0 (Qjson_object_too_deep); |
| 741 | size_t size = json_array_size (json); | 741 | size_t size = json_array_size (json); |
| 742 | if (FIXNUM_OVERFLOW_P (size)) | 742 | if (FIXNUM_OVERFLOW_P (size)) |
| 743 | xsignal0 (Qoverflow_error); | 743 | overflow_error (); |
| 744 | Lisp_Object result = Fmake_vector (make_fixed_natnum (size), Qunbound); | 744 | Lisp_Object result = Fmake_vector (make_fixed_natnum (size), Qunbound); |
| 745 | for (ptrdiff_t i = 0; i < size; ++i) | 745 | for (ptrdiff_t i = 0; i < size; ++i) |
| 746 | ASET (result, i, | 746 | ASET (result, i, |
| @@ -759,7 +759,7 @@ json_to_lisp (json_t *json, struct json_configuration *conf) | |||
| 759 | { | 759 | { |
| 760 | size_t size = json_object_size (json); | 760 | size_t size = json_object_size (json); |
| 761 | if (FIXNUM_OVERFLOW_P (size)) | 761 | if (FIXNUM_OVERFLOW_P (size)) |
| 762 | xsignal0 (Qoverflow_error); | 762 | overflow_error (); |
| 763 | result = CALLN (Fmake_hash_table, QCtest, Qequal, QCsize, | 763 | result = CALLN (Fmake_hash_table, QCtest, Qequal, QCsize, |
| 764 | make_fixed_natnum (size)); | 764 | make_fixed_natnum (size)); |
| 765 | struct Lisp_Hash_Table *h = XHASH_TABLE (result); | 765 | struct Lisp_Hash_Table *h = XHASH_TABLE (result); |