From: Philipp Stephani <phst@google.com>
Date: Sun, 9 Aug 2020 17:31:01 +0000 (+0200)
Subject: * src/json.c (lisp_to_json): Simplify.
X-Git-Tag: emacs-28.0.90~6723
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fef06fcf7ba284f206061293c3f9bcfac2daafc;p=emacs.git

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

diff --git a/src/json.c b/src/json.c
index 814afc6d741..8c9583631ad 100644
--- a/src/json.c
+++ b/src/json.c
@@ -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))