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?'.
2020-06-22 23:33:20 +02:00 · 2020-06-22 23:33:20 +02:00 · 5837b3e41f
parent 52b4524f4e
commit 5837b3e41f
1 changed files with 2 additions and 2 deletions
--- 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))