λ all the things!

3 files changed, 13 insertions, 14 deletions

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index c3fe733..941da0d 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -68,7 +68,7 @@ values."
 (define (call-with-time-display thunk)
   "Call THUNK and write to the current output port its duration."
   (call-with-time thunk
-    (lambda (time . results)
+    (λ (time . results)
       (format #t "~,3f seconds~%"
               (+ (time-second time)
                  (/ (time-nanosecond time) 1e9)))
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 920b954..2ab5d32 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -119,10 +119,8 @@ database object."
   (let ((db (db-init)))
     (dynamic-wind
       (const #t)
-      (lambda ()
-        body ...)
-      (lambda ()
-        (db-close db)))))
+      (λ () body ...)
+      (λ () (db-close db)))))
 
 (define* (read-quoted-string #:optional port)
   "Read all of the characters out of PORT and return them as a SQL quoted
diff --git a/src/cuirass/utils.scm b/src/cuirass/utils.scm
index 48c4b12..f1ddbf5 100644
--- a/src/cuirass/utils.scm
+++ b/src/cuirass/utils.scm
@@ -23,11 +23,15 @@
   #:export (;; Procedures
             mkdir-p
             ;; Macros.
+            λ*
             with-directory-excursion))
 
+(define-syntax-rule (λ* formals body ...)
+  (lambda* formals body ...))
+
 (define mkdir-p
   (let ((not-slash (char-set-complement (char-set #\/))))
-    (lambda* (dir #:optional mode)
+    (λ* (dir #:optional mode)
       "Create directory DIR and all its ancestors."
       (let ((absolute? (string-prefix? "/" dir)))
         (let loop ((components (string-tokenize dir not-slash))
@@ -36,12 +40,12 @@
             ((head tail ...)
              (let ((dir-name (string-append root "/" head)))
                (catch 'system-error
-                 (lambda ()
+                 (λ ()
                    (if mode
                        (mkdir dir-name mode)
                        (mkdir dir-name))
                    (loop tail dir-name))
-                 (lambda args
+                 (λ args
                    ;; On GNU/Hurd we can get EROFS instead of EEXIST here.
                    ;; Thus, if we get something other than EEXIST, check
                    ;; whether DIR-NAME exists.  See
@@ -57,9 +61,6 @@
   "Run BODY with DIR as the process's current directory."
   (let ((init (getcwd)))
     (dynamic-wind
-      (lambda ()
-        (chdir dir))
-      (lambda ()
-        body ...)
-      (lambda ()
-        (chdir init)))))
+      (λ () (chdir dir))
+      (λ () body ...)
+      (λ () (chdir init)))))