Ludovic Courtès schreef op vr 03-06-2022 om 18:38 [+0200]: > That’s EACCES?
It's EEXIST. > > If we move it to (guix build utils), I'd prefer the bug to be addressed > > first. > > Yes, better be cautious before “setting it in stone”. Do you have a fix > in mind? Maybe replace (symlink target pivot) by (symlink/remove-old target pivot) where (define (symlink/remove-old target link) "Make a symbolic link named LINK pointing to TARGET. If LINK already exists, it will be removed first. This is not an atomic operation." (catch 'system-error (lambda () (symlink target link)) (lambda stuff (if (= (system-error-errno stuff) EEXIST) (begin ;; remove old link and retry (delete-file link) (symlink/remove-old link target)) (apply throw stuff))))) ? Greetings, Maxime.
signature.asc
Description: This is a digitally signed message part