[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/08: gexp: Remove unnecessary 'mlet'.
From: |
Ludovic Courtès |
Subject: |
05/08: gexp: Remove unnecessary 'mlet'. |
Date: |
Thu, 19 Jul 2018 05:55:42 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 4d20d87b53930c68bab1b6d8865402260c351145
Author: Ludovic Courtès <address@hidden>
Date: Mon Jul 16 10:14:00 2018 +0200
gexp: Remove unnecessary 'mlet'.
* guix/gexp.scm (imported-modules): Use 'let' instead of 'mlet'.
---
guix/gexp.scm | 20 ++++++++------------
1 file changed, 8 insertions(+), 12 deletions(-)
diff --git a/guix/gexp.scm b/guix/gexp.scm
index cc3613f..3414b81 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)))
- branch master updated (7da1db5 -> f5db54e), Ludovic Courtès, 2018/07/19
- 01/08: gnu: julia: Fix 'llvm' version., Ludovic Courtès, 2018/07/19
- 05/08: gexp: Remove unnecessary 'mlet'.,
Ludovic Courtès <=
- 02/08: gnu: Add r-txtplot., Ludovic Courtès, 2018/07/19
- 07/08: gexp: 'imported-files/derivation' can copy files instead of symlinking., Ludovic Courtès, 2018/07/19
- 04/08: store: Add 'add-file-tree-to-store'., Ludovic Courtès, 2018/07/19
- 08/08: self: Use the new 'imported-files'., Ludovic Courtès, 2018/07/19
- 06/08: gexp: 'imported-files' no longer creates a derivation by default., Ludovic Courtès, 2018/07/19
- 03/08: serialization: Add 'write-file-tree'., Ludovic Courtès, 2018/07/19