diff options
Diffstat (limited to 'lisp/json.el')
| -rw-r--r-- | lisp/json.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/json.el b/lisp/json.el index 1e724b42e75..b13ec781b48 100644 --- a/lisp/json.el +++ b/lisp/json.el @@ -197,12 +197,12 @@ Unlike `reverse', this keeps the property-value pairs intact." (define-inline json-pop () "Advance past the character at point, returning it." - (inline-letevals ((char (json-peek))) - (inline-quote - (if (zerop ,char) + (inline-quote + (let ((char (json-peek))) + (if (zerop char) (signal 'json-end-of-file nil) (json-advance) - ,char)))) + char)))) (define-inline json-skip-whitespace () "Skip past the whitespace at point." |