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?'.
This commit is contained in:
parent
52b4524f4e
commit
5837b3e41f
|
@ -55,8 +55,8 @@
|
||||||
(define (parse-tree->assoc parse-tree)
|
(define (parse-tree->assoc parse-tree)
|
||||||
"Converts a po PARSE-TREE to an association list."
|
"Converts a po PARSE-TREE to an association list."
|
||||||
(match parse-tree
|
(match parse-tree
|
||||||
('() '())
|
(() '())
|
||||||
((entry parse-tree ...)
|
((entry . parse-tree)
|
||||||
(match entry
|
(match entry
|
||||||
((? string? entry)
|
((? string? entry)
|
||||||
(parse-tree->assoc parse-tree))
|
(parse-tree->assoc parse-tree))
|
||||||
|
|
Loading…
Reference in New Issue