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 |