diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-06 10:03:16 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2017-07-06 10:03:16 +0200 |
| commit | d7dc7cb92cc88ed3a245e628b424953206a3f784 (patch) | |
| tree | 92860bd92e5ec1cb581b8be886e50b839763342d /examples | |
| parent | 4666142ca57c15ef89759fb22511ab4c1b96ece9 (diff) | |
| download | cuirass-d7dc7cb92cc88ed3a245e628b424953206a3f784.tar cuirass-d7dc7cb92cc88ed3a245e628b424953206a3f784.tar.gz | |
cuirass: Stop λ/lambda mixing.
* 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.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gnu-system.scm | 6 | ||||
| -rw-r--r-- | examples/guix-track-git.scm | 2 |
2 files changed, 4 insertions, 4 deletions
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)) |