diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-30 00:13:54 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-30 00:16:51 +0200 |
| commit | a2278922fe5158d3caac9d2c3ff5008e084a45d3 (patch) | |
| tree | 3213b480011ced559fc1149e61ce97192b2a9b31 | |
| parent | a8ac4f081a9a679498ea42ccfe001f218bba3043 (diff) | |
| download | guix-a2278922fe5158d3caac9d2c3ff5008e084a45d3.tar.gz | |
vm: Use 'fold2' from (guix combinators).
* gnu/build/vm.scm: Use (guix combinators). (fold2): Remove.
| -rw-r--r-- | gnu/build/vm.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index d0bc8c3033..8f7fc3c9c4 100644 --- a/gnu/build/vm.scm +++ b/gnu/build/vm.scm @@ -27,6 +27,7 @@ #:use-module (gnu build linux-boot) #:use-module (gnu build install) #:use-module (guix records) + #:use-module ((guix combinators) #:select (fold2)) #:use-module (ice-9 format) #:use-module (ice-9 match) #:use-module (ice-9 regex) @@ -157,18 +158,6 @@ given by GRAPHS, a list of file names produced by #:references-graphs." ;; Simply add a 20% overhead. (round (* 1.2 (closure-size graphs)))) -(define (fold2 proc seed1 seed2 lst) ;TODO: factorize - "Like `fold', but with a single list and two seeds." - (let loop ((result1 seed1) - (result2 seed2) - (lst lst)) - (if (null? lst) - (values result1 result2) - (call-with-values - (lambda () (proc (car lst) result1 result2)) - (lambda (result1 result2) - (loop result1 result2 (cdr lst))))))) - (define* (initialize-partition-table device partitions #:key (label-type "msdos") |