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. --- examples/gnu-system.scm | 6 +++--- examples/guix-track-git.scm | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'examples') diff --git a/examples/gnu-system.scm b/examples/gnu-system.scm index 8e29fec..4076786 100644 --- a/examples/gnu-system.scm +++ b/examples/gnu-system.scm @@ -69,7 +69,7 @@ (define (package-job store job-name package system) "Return a job called JOB-NAME that builds PACKAGE on SYSTEM." - (λ () + (lambda () `((#:job-name . ,(string-append (symbol->string job-name) "." system)) (#:derivation . ,(derivation-file-name (parameterize ((%graft? #f)) @@ -80,7 +80,7 @@ (define (package-cross-job store job-name package target system) "Return a job called TARGET.JOB-NAME that cross-builds PACKAGE for TARGET on SYSTEM." - (λ () + (lambda () `((#:job-name . ,(string-join (list target (symbol->string job-name) system) ".")) (#:derivation . ,(derivation-file-name @@ -114,7 +114,7 @@ for TARGET on SYSTEM." (define (tarball-job store system) "Return Hydra jobs to build the self-contained Guix binary tarball." - (λ () + (lambda () `((#:job-name . (string-append "binary-tarball." system)) (#:derivation . ,(derivation-file-name (parameterize ((%graft? #f)) diff --git a/examples/guix-track-git.scm b/examples/guix-track-git.scm index 10a3d48..e3531f0 100644 --- a/examples/guix-track-git.scm +++ b/examples/guix-track-git.scm @@ -98,7 +98,7 @@ (define (package-job store job-name package system) "Return a job called JOB-NAME that builds PACKAGE on SYSTEM." - (λ () + (lambda () `((#:job-name . ,(string-append (symbol->string job-name) "." system)) (#:derivation . ,(derivation-file-name (parameterize ((%graft? #f)) -- cgit v1.2.3