Fix i18n
po/nani.pot
8 | 8 | msgstr "" | |
9 | 9 | "Project-Id-Version: PACKAGE VERSION\n" | |
10 | 10 | "Report-Msgid-Bugs-To: \n" | |
11 | - | "POT-Creation-Date: 2020-06-05 15:21+0200\n" | |
11 | + | "POT-Creation-Date: 2020-06-06 01:47+0200\n" | |
12 | 12 | "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" | |
13 | 13 | "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" | |
14 | 14 | "Language-Team: LANGUAGE <LL@li.org>\n" |
tools/i18n.scm
43 | 43 | (define (_ tr . args) | |
44 | 44 | (let ((res (apply __ tr args))) | |
45 | 45 | (match res | |
46 | - | ((*TOP* (tr rest ...)) (car rest))))) | |
46 | + | ((*TOP* (tr rest)) rest) | |
47 | + | ((*TOP* (tr rest ...)) rest)))) | |
47 | 48 | ||
48 | 49 | (define (tr body) | |
49 | 50 | (match body |