aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-12-01 22:15:49 +0100
committerLudovic Courtès <ludo@gnu.org>2014-12-01 22:41:04 +0100
commit4efdabb810717cee845de30a81799c953915d1eb (patch)
tree66c9598a4afefb6941f76fae366daf3d9da7721d
parent85dbd3dcd00f294b6b9cc5214552799220a2465a (diff)
downloadguix-4efdabb810717cee845de30a81799c953915d1eb.tar
guix-4efdabb810717cee845de30a81799c953915d1eb.tar.gz
build-system/glib-or-gtk: Use 'for-each' and 'cut' as appropriate.
* guix/build/glib-or-gtk-build-system.scm (wrap-all-programs): Use 'for-each' instead of 'map' in for-effect contexts. Use 'cut' instead of 'lambda' when appropriate.
-rw-r--r--guix/build/glib-or-gtk-build-system.scm14
1 files changed, 9 insertions, 5 deletions
diff --git a/guix/build/glib-or-gtk-build-system.scm b/guix/build/glib-or-gtk-build-system.scm
index bed7eb691a..011f9b3f4f 100644
--- a/guix/build/glib-or-gtk-build-system.scm
+++ b/guix/build/glib-or-gtk-build-system.scm
@@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch>
+;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -22,6 +23,7 @@
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1)
+ #:use-module (srfi srfi-26)
#:export (%standard-phases
glib-or-gtk-build))
@@ -96,13 +98,15 @@ if found."
#f)))
(cond
((and schemas-env-var gtk-mod-env-var)
- (map (lambda (prog)
- (wrap-program prog schemas-env-var gtk-mod-env-var))
- bin-list))
+ (for-each (cut wrap-program <> schemas-env-var gtk-mod-env-var)
+ bin-list))
(schemas-env-var
- (map (lambda (prog) (wrap-program prog schemas-env-var)) bin-list))
+ (for-each (cut wrap-program <> schemas-env-var)
+ bin-list))
(gtk-mod-env-var
- (map (lambda (prog) (wrap-program prog gtk-mod-env-var)) bin-list)))))
+ (for-each (cut wrap-program <> gtk-mod-env-var)
+ bin-list)))
+ #t))
(define* (compile-glib-schemas #:key inputs outputs #:allow-other-keys)
"Implement phase \"glib-or-gtk-compile-schemas\": compile \"glib\" schemas