Use cl-labels in one place

* jupyter-rest-api.el (jupyter-api-get-ordered-checkpoints): Do it.
emacs-tree-sitter · Apr 22, 2021 · b4304ae · b4304ae
1 parent a6c40a4
commit b4304ae
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/jupyter-rest-api.el b/jupyter-rest-api.el
@@ -991,10 +991,10 @@ Return a list of the checkpoints ordered most recently created first."
   (declare (indent 1))
   (sort
    (jupyter-api-get-checkpoints client file)
-   (lambda (a b)
-     (let ((ta (jupyter-decode-time (plist-get a :last_modified)))
-           (tb (jupyter-decode-time (plist-get b :last_modified))))
-       (time-less-p tb ta)))))
+   (cl-labels ((decode-time
+                (a) (jupyter-decode-time (plist-get a :last_modified))))
+     (lambda (a b)
+       (time-less-p (decode-time b) (decode-time a))))))
 
 (defun jupyter-api-get-latest-checkpoint (client file)
   "Return the latest checkpoint for FILE on the server accessed by CLIENT.