po: Micro-optimize 'read-po-file'.
* guix/build/po.scm (parse-tree->assoc): Use dot instead of ellipsis in 'match' clause to avoid repeated calls to 'list?'.master
parent
52b4524f4e
commit
5837b3e41f
|
@ -55,8 +55,8 @@
|
|||
(define (parse-tree->assoc parse-tree)
|
||||
"Converts a po PARSE-TREE to an association list."
|
||||
(match parse-tree
|
||||
('() '())
|
||||
((entry parse-tree ...)
|
||||
(() '())
|
||||
((entry . parse-tree)
|
||||
(match entry
|
||||
((? string? entry)
|
||||
(parse-tree->assoc parse-tree))
|
||||
|
|
Reference in New Issue