ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

po: Micro-optimize 'read-po-file'.

Browse source 
* guix/build/po.scm (parse-tree->assoc): Use dot instead of ellipsis in
'match' clause to avoid repeated calls to 'list?'.
This commit is contained in:
Ludovic Courtès 2020-06-22 23:33:20 +02:00
parent 52b4524f4e
commit 5837b3e41f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/build/po.scm
View file

@ -55,8 +55,8 @@ (define (interpret-newline-escape str)
(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))