andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/json.c (lisp_to_json): Simplify.

Browse source
This commit is contained in:
Philipp Stephani 2020-08-09 19:31:01 +02:00
parent 781bcce119
commit 5fef06fcf7
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/json.c
View file

@ -479,9 +479,7 @@ lisp_to_json (Lisp_Object lisp, struct json_configuration *conf)
{
intmax_t low = TYPE_MINIMUM (json_int_t);
intmax_t high = TYPE_MAXIMUM (json_int_t);
intmax_t value;
if (! (integer_to_intmax (lisp, &value) && low <= value && value <= high))
args_out_of_range_3 (lisp, make_int (low), make_int (high));
intmax_t value = check_integer_range (lisp, low, high);
return json_check (json_integer (value));
}
else if (FLOATP (lisp))