From d7dc7cb92cc88ed3a245e628b424953206a3f784 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 6 Jul 2017 10:03:16 +0200 Subject: cuirass: Stop λ/lambda mixing. 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 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin/cuirass.in') 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)))) -- cgit v1.2.3