05/08: po: Micro-optimize 'read-po-file'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 5837b3e41fe2e772f944fdae05b1f48084cc783e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 22 23:33:20 2020 +0200

    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?'.
---
 guix/build/po.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/build/po.scm b/guix/build/po.scm
index 6ad7b9c..eb9690a 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))