diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-22 23:33:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-23 00:03:08 +0200 |
| commit | 5837b3e41fe2e772f944fdae05b1f48084cc783e (patch) | |
| tree | 23e4f1f0e70462b0a108ba09c1bb38dead7633c7 /guix | |
| parent | 52b4524f4e87e16da6fb1475145685299f0febe0 (diff) | |
| download | guix-patches-5837b3e41fe2e772f944fdae05b1f48084cc783e.tar guix-patches-5837b3e41fe2e772f944fdae05b1f48084cc783e.tar.gz | |
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')
| -rw-r--r-- | guix/build/po.scm | 4 |
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)) |