nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2014-12-01 22:15:49 +01:00
parent 85dbd3dcd0
commit 4efdabb810
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/build/glib-or-gtk-build-system.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2014 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -22,6 +23,7 @@
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:export (%standard-phases #:export (%standard-phases
glib-or-gtk-build)) glib-or-gtk-build))
@ -96,13 +98,15 @@ if found."
#f))) #f)))
(cond (cond
((and schemas-env-var gtk-mod-env-var) ((and schemas-env-var gtk-mod-env-var)
(map (lambda (prog) (for-each (cut wrap-program <> schemas-env-var gtk-mod-env-var)
(wrap-program prog schemas-env-var gtk-mod-env-var))
bin-list)) bin-list))
(schemas-env-var (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 (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) (define* (compile-glib-schemas #:key inputs outputs #:allow-other-keys)
"Implement phase \"glib-or-gtk-compile-schemas\": compile \"glib\" schemas "Implement phase \"glib-or-gtk-compile-schemas\": compile \"glib\" schemas