summaryrefslogtreecommitdiff
path: root/gnu/packages/librewolf.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/librewolf.scm')
-rw-r--r--gnu/packages/librewolf.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/packages/librewolf.scm b/gnu/packages/librewolf.scm
index 6c852d7f1c2..f8800b19252 100644
--- a/gnu/packages/librewolf.scm
+++ b/gnu/packages/librewolf.scm
@@ -530,11 +530,15 @@
530 ;; The following two functions are from Guix's icecat package in 530 ;; The following two functions are from Guix's icecat package in
531 ;; (gnu packages gnuzilla). See commit 531 ;; (gnu packages gnuzilla). See commit
532 ;; b7a0935420ee630a29b7e5ac73a32ba1eb24f00b. 532 ;; b7a0935420ee630a29b7e5ac73a32ba1eb24f00b.
533 (define (runpath-of lib)
534 (call-with-input-file lib
535 (compose elf-dynamic-info-runpath elf-dynamic-info
536 parse-elf get-bytevector-all)))
533 (define (runpaths-of-input label) 537 (define (runpaths-of-input label)
534 (let* ((dir (string-append (assoc-ref inputs label) 538 (let* ((dir (string-append (assoc-ref inputs label)
535 "/lib")) 539 "/lib"))
536 (libs (find-files dir "\\.so$"))) 540 (libs (find-files dir "\\.so$")))
537 (append-map file-runpath libs))) 541 (append-map runpath-of libs)))
538 (let* ((out (assoc-ref outputs "out")) 542 (let* ((out (assoc-ref outputs "out"))
539 (lib (string-append out "/lib")) 543 (lib (string-append out "/lib"))
540 (libs (map 544 (libs (map