(define arch-name
   (eval-when (expand eval compile)
     (and=> (and=> (string-split %host-type #\-)
-                  car)
-           string->symbol)))
+             car)
+      string->symbol)))