aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/mpi.scm
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2022-04-20 18:25:58 +0200
committerMarius Bakke <marius@gnu.org>2022-04-20 18:26:56 +0200
commit8540c2d86ca535ceb188c838cf1885de6f65c94f (patch)
treec2001dab0f0c479b18b1237263d01c97ae2f8804 /gnu/packages/mpi.scm
parent0cf1178a659ad83e089c2f1f9736dde2b4e9163b (diff)
downloadguix-8540c2d86ca535ceb188c838cf1885de6f65c94f.tar.gz
guix-8540c2d86ca535ceb188c838cf1885de6f65c94f.zip
gnu: ungoogled-chromium: Update to 100.0.4896.127-1.
* gnu/packages/chromium.scm (%chromium-version): Set to 100.0.4896.127-1. (%ungoogled-origin, ungoogled-chromium): Update hashes.
Diffstat (limited to 'gnu/packages/mpi.scm')
0 files changed, 0 insertions, 0 deletions
arget (loop target) (format #f ".cache/guile/ccache/~a-~a-~a-~a/~a" (effective-version) (if (eq? (native-endianness) (endianness little)) "LE" "BE") (sizeof '*) (effective-version) file))))) (define (compile-to-cache file) "Compile FILE to the cache." (let ((compiled-file (cache-compiled-file-name file))) (mkdir-p (dirname compiled-file)) (compile-file file #:opts %auto-compilation-options #:output-file compiled-file))) (define* (build-initrd output #:key guile init (references-graphs '()) (gzip "gzip")) "Write an initial RAM disk (initrd) to OUTPUT. The initrd starts the script at INIT, running GUILE. It contains all the items referred to by REFERENCES-GRAPHS." (mkdir "contents") ;; Copy the closures of all the items referenced in REFERENCES-GRAPHS. (populate-store references-graphs "contents" #:deduplicate? #f) (with-directory-excursion "contents" ;; Make '/init'. (symlink init "init") ;; Compile it. (compile-to-cache "init") ;; Allow Guile to find out where it is (XXX). See ;; 'guile-relocatable.patch'. (mkdir-p "proc/self") (symlink (string-append guile "/bin/guile") "proc/self/exe") (readlink "proc/self/exe") (write-cpio-archive output "." #:gzip gzip)) ;; Make sure directories are writable so we can delete files. (for-each make-file-writable (find-files "contents" (lambda (file stat) (eq? 'directory (stat:type stat))) #:directories? #t)) (delete-file-recursively "contents")) ;;; linux-initrd.scm ends here