summaryrefslogtreecommitdiff
path: root/guix/build/po.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-22 23:33:20 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-23 00:03:08 +0200
commit5837b3e41fe2e772f944fdae05b1f48084cc783e (patch)
tree23e4f1f0e70462b0a108ba09c1bb38dead7633c7 /guix/build/po.scm
parent52b4524f4e87e16da6fb1475145685299f0febe0 (diff)
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?'.
Diffstat (limited to 'guix/build/po.scm')
-rw-r--r--guix/build/po.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/po.scm b/guix/build/po.scm
index 6ad7b9cdbc..eb9690ad1a 100644
--- a/guix/build/po.scm
+++ b/guix/build/po.scm
@@ -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))