diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-07-16 10:14:00 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-07-19 11:48:04 +0200 |
commit | 4d20d87b53930c68bab1b6d8865402260c351145 (patch) | |
tree | 2e936a16901b47c91e2e6fa245ad9c00e0243c29 | |
parent | 7f11efbac7a13898bd925d2ef1e9d26cb0e22ade (diff) | |
download | guix-4d20d87b53930c68bab1b6d8865402260c351145.tar.gz |
gexp: Remove unnecessary 'mlet'.
* guix/gexp.scm (imported-modules): Use 'let' instead of 'mlet'.
-rw-r--r-- | guix/gexp.scm | 20 |
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))) |