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 /bin | |
| 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 'bin')
| -rw-r--r-- | bin/cuirass.in | 6 | ||||
| -rw-r--r-- | bin/evaluate.in | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 27efaac..61b9dd8 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -89,16 +89,16 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (with-database db (and specfile (let ((new-specs (save-module-excursion - (λ () + (lambda () (set-current-module (make-user-module '())) (primitive-load specfile))))) - (for-each (λ (spec) (db-add-specification db spec)) + (for-each (lambda (spec) (db-add-specification db spec)) new-specs))) (if one-shot? (process-specs db (db-get-specifications db)) (begin (call-with-new-thread - (λ () + (lambda () (while #t (process-specs db (db-get-specifications db)) (sleep interval)))) diff --git a/bin/evaluate.in b/bin/evaluate.in index 09a785b..d1d0767 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -40,7 +40,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (stdout (current-output-port)) (stderr (current-error-port))) (save-module-excursion - (λ () + (lambda () (set-current-module %user-module) (with-directory-excursion (string-append cachedir "/" (assq-ref spec #:name)) @@ -52,7 +52,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" ;; Grafts can trigger early builds. We do not want that to happen ;; during evaluation, so use a sledgehammer to catch such problems. (set! build-things - (λ (store . args) + (lambda (store . args) (display "error: trying to build things during evaluation!~%" stderr) (simple-format stderr "'build-things' arguments: ~S~%" args) @@ -71,7 +71,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (#:revision . ,commit))) (eval-id (db-add-evaluation db eval))) (pretty-print - (map (λ (thunk) + (map (lambda (thunk) (let* ((job (call-with-time-display thunk)) ;; Keep track of SPEC id in the returned jobs. (job* (acons #:eval-id eval-id job))) |