diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-10-03 12:28:58 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-03 14:36:12 +0200 |
| commit | 57aff6476e3d4c9a2df5ea98f2caaed1472972de (patch) | |
| tree | 56ca8bf6141a40a75175202e7a8530ca67635630 /guix/build/gnu-build-system.scm | |
| parent | 29aca449c73be15ab11d332d975d5499bb49c7ca (diff) | |
| download | guix-57aff6476e3d4c9a2df5ea98f2caaed1472972de.tar guix-57aff6476e3d4c9a2df5ea98f2caaed1472972de.tar.gz | |
utils: Add 'every*'.
* guix/build/gnu-build-system.scm (every*): Move to...
* guix/build/utils.scm (every*): ... here. New procedure.
Diffstat (limited to 'guix/build/gnu-build-system.scm')
| -rw-r--r-- | guix/build/gnu-build-system.scm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 0a774e1e84..75439c8330 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -409,18 +409,6 @@ makefiles." strip-directories))) outputs)))) -(define (every* pred lst) - "This is like 'every', but process all the elements of LST instead of -stopping as soon as PRED returns false. This is useful when PRED has side -effects, such as displaying warnings or error messages." - (let loop ((lst lst) - (result #t)) - (match lst - (() - result) - ((head . tail) - (loop tail (and (pred head) result)))))) - (define* (validate-runpath #:key (validate-runpath? #t) (elf-directories '("lib" "lib64" "libexec" |