magit--age: Cosmetics

1 files changed, 8 insertions, 8 deletions

diff --git a/lisp/magit-margin.el b/lisp/magit-margin.el
index a85578a..841da40 100644
--- a/lisp/magit-margin.el
+++ b/lisp/magit-margin.el
@@ -246,14 +246,14 @@ English.")
                                     (string-to-number date)
                                   date))))
                    (spec magit--age-spec))
-    (pcase-let ((`(,char ,unit ,units ,weight) (car spec)))
-      (let ((cnt (round (/ age weight 1.0))))
-        (if (or (not (cdr spec))
-                (>= (/ age weight) 1))
-            (list cnt (cond (abbreviate char)
-                            ((= cnt 1) unit)
-                            (units)))
-          (calc age (cdr spec)))))))
+    (pcase-let* ((`((,char ,unit ,units ,weight) . ,spec) spec)
+                 (cnt (round (/ age weight 1.0))))
+      (if (or (not spec)
+              (>= (/ age weight) 1))
+          (list cnt (cond (abbreviate char)
+                          ((= cnt 1) unit)
+                          (units)))
+        (calc age spec)))))
 
 ;;; _
 (provide 'magit-margin)