Am Freitag, dem 05.04.2024 um 09:53 +0800 schrieb Hilton Chain:
> [H]ere's a reproducer:
>
> --8<---------------cut here---------------start------------->8---
> test_dir="$(mktemp --directory)"
>
> sudo mount --type tmpfs none "$test_dir"
> touch "$test_dir/test"
>
> guile -c "(rename-file \"$test_dir/test\" \"/tmp/test\")"
>
> sudo umount "$test_dir"
> rmdir "$test_dir"
> --8<---------------cut here---------------end--------------->8---
>
> --8<---------------cut here---------------start------------->8---
> Backtrace:
> In ice-9/boot-9.scm:
> 1752:10 6 (with-exception-handler _ _ #:unwind? _ # _)
> In unknown file:
> 5 (apply-smob/0 #<thunk 7061ede8c300>)
> In ice-9/boot-9.scm:
> 724:2 4 (call-with-prompt ("prompt") #<procedure 7061ede99320 …>
> …)
> In ice-9/eval.scm:
> 619:8 3 (_ #(#(#<directory (guile-user) 7061ede8fc80>)))
> In ice-9/command-line.scm:
> 185:19 2 (_ #<input: string 7061ede89850>)
> In unknown file:
> 1 (eval (rename-file "/tmp/tmp.9wyzRfQ28l/test" "/tmp/…")
> #)
> 0 (rename-file "/tmp/tmp.9wyzRfQ28l/test" "/tmp/test")
>
> ERROR: In procedure rename-file:
> In procedure rename-file: Invalid cross-device link
> --8<---------------cut here---------------end--------------->8---
If I understand this reproducer correctly, there aren't even symbolic
links involved, are there?
Adding Ludo to CC, because this looks like a Guile bug to me.
Cheers
