; Remove two unnecessary quotes

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-=): Remove unnecessary
	quote.
	* lisp/emacs-lisp/comp.el (comp-compile-ctxt-to-file): Likewise.
This commit is contained in:
Andrea Corallo 2021-03-21 09:28:25 +01:00
parent be22cda7be
commit 08682ccc31
2 changed files with 2 additions and 2 deletions

View file

@ -873,7 +873,7 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
for v in (valset cstr)
do
(when-let* ((ok (floatp v))
(truncated (ignore-error 'overflow-error
(truncated (ignore-error overflow-error
(truncate v)))
(ok (= v truncated)))
(push (cons truncated truncated) (range cstr))))

View file

@ -3606,7 +3606,7 @@ Prepare every function for final compilation and drive the C back-end."
(comp-ctxt-funcs-h comp-ctxt))
(unless (file-exists-p dir)
;; In case it's created in the meanwhile.
(ignore-error 'file-already-exists
(ignore-error file-already-exists
(make-directory dir t)))
(comp--compile-ctxt-to-file name)))