mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-11 13:49:23 -05:00
hurd-boot: Use 'setxattr' instead of invoking settrans.
Note: Using `getxattr' on the Hurd instead of running showtrans does not work (yet?). * gnu/build/hurd-boot.scm (setup-translator): Use 'setxattr' instead of invoking settrans. * gnu/system.scm (hurd-multiboot-modules): Add --x-xattr-translator-records to enable xattr-embedding of translators.
This commit is contained in:
parent
951847ee37
commit
f25e8f76fe
2 changed files with 2 additions and 1 deletions
|
@ -144,7 +144,7 @@ (define* (set-translator file-name command #:optional (mode #o600))
|
|||
(chmod port mode)))))
|
||||
(catch 'system-error
|
||||
(lambda _
|
||||
(apply invoke "settrans" "--create" file-name command))
|
||||
(setxattr file-name "gnu.translator" (string-join command "\0" 'suffix)))
|
||||
(lambda (key . args)
|
||||
(let ((errno (system-error-errno (cons key args))))
|
||||
(format (current-error-port) "~a: ~a\n"
|
||||
|
|
|
@ -1191,6 +1191,7 @@ (define (hurd-multiboot-modules os)
|
|||
"--device-master-port='${device-port}'"
|
||||
"--exec-server-task='${exec-task}'"
|
||||
"--store-type=typed"
|
||||
"--x-xattr-translator-records"
|
||||
"'${root}'" "'$(task-create)'" "'$(task-resume)'"))
|
||||
(target (%current-target-system))
|
||||
(libc (if target
|
||||
|
|
Loading…
Reference in a new issue