From d7dc7cb92cc88ed3a245e628b424953206a3f784 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <m.othacehe@gmail.com>
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.
---
 bin/cuirass.in  | 6 +++---
 bin/evaluate.in | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'bin')

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)))
-- 
cgit v1.2.3