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 /src/cuirass/ui.scm | |
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 'src/cuirass/ui.scm')
-rw-r--r-- | src/cuirass/ui.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cuirass/ui.scm b/src/cuirass/ui.scm index 801a539..98ee3a9 100644 --- a/src/cuirass/ui.scm +++ b/src/cuirass/ui.scm @@ -27,11 +27,11 @@ (define %program-name ;; Similar in spirit to Gnulib 'progname' module. (make-parameter "" - (λ (val) + (lambda (val) (cond ((not (string? val)) (scm-error 'wrong-type-arg "%program-name" "Not a string: ~S" (list #f) #f)) - ((string-rindex val #\/) => (λ (idx) (substring val (1+ idx)))) + ((string-rindex val #\/) => (lambda (idx) (substring val (1+ idx)))) (else val))))) (define (show-version) |