diff options
| author | Andrea Corallo | 2021-03-21 09:28:25 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2021-03-21 09:28:25 +0100 |
| commit | 08682ccc3154eaae993dbcb71a6498d1c06d80ae (patch) | |
| tree | 5db307545236bc1000b8609cb1234b963216223c | |
| parent | be22cda7be9e77e67f224f6f07cca9dd44aaa078 (diff) | |
| download | emacs-08682ccc3154eaae993dbcb71a6498d1c06d80ae.tar.gz emacs-08682ccc3154eaae993dbcb71a6498d1c06d80ae.zip | |
; 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.
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index d0b842e7c37..7f5d34b45c3 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el | |||
| @@ -873,7 +873,7 @@ Non memoized version of `comp-cstr-intersection-no-mem'." | |||
| 873 | for v in (valset cstr) | 873 | for v in (valset cstr) |
| 874 | do | 874 | do |
| 875 | (when-let* ((ok (floatp v)) | 875 | (when-let* ((ok (floatp v)) |
| 876 | (truncated (ignore-error 'overflow-error | 876 | (truncated (ignore-error overflow-error |
| 877 | (truncate v))) | 877 | (truncate v))) |
| 878 | (ok (= v truncated))) | 878 | (ok (= v truncated))) |
| 879 | (push (cons truncated truncated) (range cstr)))) | 879 | (push (cons truncated truncated) (range cstr)))) |
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index ca4be0fe976..76b4733cfaa 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el | |||
| @@ -3606,7 +3606,7 @@ Prepare every function for final compilation and drive the C back-end." | |||
| 3606 | (comp-ctxt-funcs-h comp-ctxt)) | 3606 | (comp-ctxt-funcs-h comp-ctxt)) |
| 3607 | (unless (file-exists-p dir) | 3607 | (unless (file-exists-p dir) |
| 3608 | ;; In case it's created in the meanwhile. | 3608 | ;; In case it's created in the meanwhile. |
| 3609 | (ignore-error 'file-already-exists | 3609 | (ignore-error file-already-exists |
| 3610 | (make-directory dir t))) | 3610 | (make-directory dir t))) |
| 3611 | (comp--compile-ctxt-to-file name))) | 3611 | (comp--compile-ctxt-to-file name))) |
| 3612 | 3612 | ||