; 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:
parent
be22cda7be
commit
08682ccc31
2 changed files with 2 additions and 2 deletions
|
@ -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))))
|
||||
|
|
|
@ -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)))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue