biome-query: fix for Emacs 30

This commit is contained in:
Pavel Korytov 2023-10-15 22:19:00 +03:00
parent fc52a2b7ac
commit 5f166bb6a8

View file

@ -695,7 +695,8 @@ at 3."
(mapcar (lambda (it) (mapcar (lambda (it)
(cons (biome-query--unique-key-weight it seq-lengths) it))) (cons (biome-query--unique-key-weight it seq-lengths) it)))
(seq-filter (lambda (it) (< (car it) max-weight))) (seq-filter (lambda (it) (< (car it) max-weight)))
((lambda (sequences) (sort sequences (lambda (a b) (< (car a) (car b)))))) (funcall
(lambda (sequences) (sort sequences (lambda (a b) (< (car a) (car b))))))
(mapcar #'cdr) (mapcar #'cdr)
(seq-sort-by (seq-sort-by
(lambda (it) (lambda (it)