Fix i18n

Julien LepillerThu Jun 11 18:06:21+0200 2020

6e2246a

Fix i18n

po/nani.pot

88
msgstr ""
99
"Project-Id-Version: PACKAGE VERSION\n"
1010
"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"
1212
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
1313
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
1414
"Language-Team: LANGUAGE <LL@li.org>\n"

tools/i18n.scm

4343
(define (_ tr . args)
4444
  (let ((res (apply __ tr args)))
4545
    (match res
46-
      ((*TOP* (tr rest ...)) (car rest)))))
46+
      ((*TOP* (tr rest)) rest)
47+
      ((*TOP* (tr rest ...)) rest))))
4748
4849
(define (tr body)
4950
  (match body