aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-16 10:14:00 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-19 11:48:04 +0200
commit4d20d87b53930c68bab1b6d8865402260c351145 (patch)
tree2e936a16901b47c91e2e6fa245ad9c00e0243c29
parent7f11efbac7a13898bd925d2ef1e9d26cb0e22ade (diff)
downloadguix-4d20d87b53930c68bab1b6d8865402260c351145.tar
guix-4d20d87b53930c68bab1b6d8865402260c351145.tar.gz
gexp: Remove unnecessary 'mlet'.
* guix/gexp.scm (imported-modules): Use 'let' instead of 'mlet'.
-rw-r--r--guix/gexp.scm20
1 files changed, 8 insertions, 12 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm
index cc3613f6f6..3414b81dc6 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -1098,18 +1098,14 @@ by an arrow followed by a file-like object. For example:
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)))