diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-05-28 17:49:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-06-08 09:25:49 +0200 |
| commit | 4a93fb05954a6067bac8f8021dd0072e0824831e (patch) | |
| tree | cb9b6901c2782d91b18eb613704a15255fb19720 /guix | |
| parent | 6bd3d4fe06a65db5356f4eec43a505a47acc3934 (diff) | |
grafts: Use SRFI-71 instead of SRFI-11.
* guix/grafts.scm (reference-origins): Use SRFI-71 'let*'.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/grafts.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/grafts.scm b/guix/grafts.scm index dff3d75b8b..e5672268b1 100644 --- a/guix/grafts.scm +++ b/guix/grafts.scm @@ -25,10 +25,10 @@ #:use-module ((guix utils) #:select (%current-system)) #:use-module (guix sets) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-11) #:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-26) #:use-module (srfi srfi-34) + #:use-module (srfi srfi-71) #:use-module (ice-9 match) #:use-module (ice-9 vlist) #:export (graft? @@ -223,10 +223,10 @@ have no corresponding element in the resulting list." ((set-contains? visited drv) (loop rest items result visited)) (else - (let*-values (((inputs) - (map derivation-input-derivation - (derivation-inputs drv))) - ((result items) + (let* ((inputs + (map derivation-input-derivation + (derivation-inputs drv))) + (result items (fold2 lookup-derivers result items inputs))) (loop (append rest inputs) |