feature/native-comp d0280ce: Revert "* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Clean-up all..."

[Andrea Corallo]

branch: feature/native-comp
commit d0280ce1b160ddc440d4ecac0397c50d2f5235eb
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    Revert "* lisp/emacs-lisp/comp.el (comp-clean-up-stale-eln): Clean-up 
all..."
    
    This reverts commit be22cda7be9e77e67f224f6f07cca9dd44aaa078.
    
    Older binaries might still need those .eln if they where preloaded.
---
 lisp/emacs-lisp/comp.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 76b4733..37b61ed 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3776,14 +3776,11 @@ sharing the original source filename (including FILE)."
      with filename-hash = (match-string 1 file)
      with regexp = (rx-to-string
                     `(seq "-" ,filename-hash "-" (1+ hex) ".eln" eos))
-     for dir in (comp-eln-load-path-eff)
+     for dir in (butlast (comp-eln-load-path-eff)) ; Skip last dir.
      do (cl-loop
          for f in (when (file-exists-p dir)
                    (directory-files dir t regexp t))
-         ;; We may not be able to delete de file if we have no write
-         ;; permisison.
-         do (ignore-error file-error
-              (comp-delete-or-replace-file f))))))
+         do (comp-delete-or-replace-file f)))))
 
 (defun comp-delete-or-replace-file (oldfile &optional newfile)
   "Replace OLDFILE with NEWFILE.