diff options
author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-03-28 22:40:32 -0400 |
---|---|---|
committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-03-28 22:40:32 -0400 |
commit | 438a0de332fc09d9ba14d7c989af9c17ca9c6be2 (patch) | |
tree | 869ee142cd19a803ce4d1e33d69d0d85f3be5a44 /guix/build | |
parent | e5ae499f4c91508123edae3df29afa94c6ef33ae (diff) | |
parent | d00f1075077e55a3c2c750b3dd41be2a09eff530 (diff) | |
download | guix-patches-438a0de332fc09d9ba14d7c989af9c17ca9c6be2.tar guix-patches-438a0de332fc09d9ba14d7c989af9c17ca9c6be2.tar.gz |
Merge remote-tracking branch 'origin/master' into staging
Diffstat (limited to 'guix/build')
-rw-r--r-- | guix/build/syscalls.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index df9b9f6ac7..d947b010d3 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -970,7 +970,10 @@ backend device." (string->pointer key) (string->pointer "") 0))) - (cond ((< size 0) #f) + (cond ((< size 0) + (throw 'system-error "getxattr" "~S: ~A" + (list file key (strerror err)) + (list err))) ((zero? size) "") ;; Get VALUE in buffer of SIZE. XXX actual size can race. (else (let*-values (((buf) (make-bytevector size)) |