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