From 5837b3e41fe2e772f944fdae05b1f48084cc783e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 22 Jun 2020 23:33:20 +0200
Subject: 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 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))
-- 
cgit v1.2.3