ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 14:52:05 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

grafts: Use SRFI-71 instead of SRFI-11.

Browse source 
* guix/grafts.scm (reference-origins): Use SRFI-71 'let*'.
This commit is contained in:
Ludovic Courtès 2021-05-28 17:49:47 +02:00
parent 6bd3d4fe06
commit 4a93fb0595
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/grafts.scm
View file

@ -25,10 +25,10 @@ (define-module (guix grafts)
#: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 @@ (define (lookup-derivers drv result items)
((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)