diff options
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))) |