From d7dc7cb92cc88ed3a245e628b424953206a3f784 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 6 Jul 2017 10:03:16 +0200 Subject: =?UTF-8?q?cuirass:=20Stop=20=CE=BB/lambda=20mixing.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * bin/cuirass.in: Replace λ by lambda. * bin/evaluate.in: Ditto. * build-aux/guix.scm: Ditto. * examples/gnu-system.scm: Ditto. * examples/guix-track-git.scm: Ditto. * src/cuirass.scm: Ditto. * src/cuirass/base.scm: Ditto. * src/cuirass/database.scm: Ditto. * src/cuirass/ui.scm: Ditto. * src/cuirass/utils.scm: Remove λ* macro. --- build-aux/guix.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'build-aux') diff --git a/build-aux/guix.scm b/build-aux/guix.scm index 57ba8ab..feb6670 100644 --- a/build-aux/guix.scm +++ b/build-aux/guix.scm @@ -27,10 +27,10 @@ ;; Return #t if FILE in Cuirass repository must be kept, #f otherwise. FILE ;; is an absolute file name and STAT is the result of 'lstat' applied to ;; FILE. - (not (or (any (λ (str) (string-contains file str)) + (not (or (any (lambda (str) (string-contains file str)) '(".git" "autom4te" "Makefile.in" ".go" ".log" "stamp-vti" ".dirstamp")) - (any (λ (str) (string-suffix? str file)) + (any (lambda (str) (string-suffix? str file)) '("trs""configure" "Makefile" "config.status" "pre-inst-env" "aclocal.m4" "bin/cuirass" "bin/evaluate" "config.cache" "guix.scm"))))) @@ -61,7 +61,7 @@ '(#:phases (modify-phases %standard-phases (add-before 'configure 'bootstrap - (λ _ (zero? (system* "sh" "bootstrap")))) + (lambda _ (zero? (system* "sh" "bootstrap")))) (add-after 'install 'wrap-program (lambda* (#:key inputs outputs #:allow-other-keys) ;; Wrap the 'cuirass' command to refer to the right modules. -- cgit v1.2.3