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

gexp: Remove unnecessary 'mlet'.

Browse source 
* guix/gexp.scm (imported-modules): Use 'let' instead of 'mlet'.
This commit is contained in:
Ludovic Courtès 2018-07-16 10:14:00 +02:00
parent 7f11efbac7
commit 4d20d87b53
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix/gexp.scm
View file

@ -1098,18 +1098,14 @@ (define* (imported-modules modules
In this example, the first two modules are taken from MODULE-PATH, and the
last one is created from the given <scheme-file> object."
(mlet %store-monad ((files
(mapm %store-monad
(match-lambda
(((module ...) '=> file)
(return
(cons (module->source-file-name module)
file)))
((module ...)
(let ((f (module->source-file-name module)))
(return
(cons f (search-path* module-path f))))))
modules)))
(let ((files (map (match-lambda
(((module ...) '=> file)
(cons (module->source-file-name module)
file))
((module ...)
(let ((f (module->source-file-name module)))
(cons f (search-path* module-path f)))))
modules)))
(imported-files files #:name name #:system system
#:guile guile
#:deprecation-warnings deprecation-warnings)))