diff options
Diffstat (limited to 'src/json.c')
| -rw-r--r-- | src/json.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/json.c b/src/json.c index e5c0dc22179..770b63c1da2 100644 --- a/src/json.c +++ b/src/json.c | |||
| @@ -817,7 +817,7 @@ json_to_lisp (json_t *json, struct json_configuration *conf) | |||
| 817 | size_t size = json_array_size (json); | 817 | size_t size = json_array_size (json); |
| 818 | if (FIXNUM_OVERFLOW_P (size)) | 818 | if (FIXNUM_OVERFLOW_P (size)) |
| 819 | overflow_error (); | 819 | overflow_error (); |
| 820 | Lisp_Object result = Fmake_vector (make_fixed_natnum (size), Qunbound); | 820 | Lisp_Object result = make_vector (size, Qunbound); |
| 821 | for (ptrdiff_t i = 0; i < size; ++i) | 821 | for (ptrdiff_t i = 0; i < size; ++i) |
| 822 | ASET (result, i, | 822 | ASET (result, i, |
| 823 | json_to_lisp (json_array_get (json, i), conf)); | 823 | json_to_lisp (json_array_get (json, i), conf)); |