From 30e70b3d285c112f092a9ec1a18626ce6533a275 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 23 Aug 2020 16:40:34 +0200
Subject: Repair tests.

---
 module/text/numbers.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/text')

diff --git a/module/text/numbers.scm b/module/text/numbers.scm
index 4c76a028..3e302c69 100644
--- a/module/text/numbers.scm
+++ b/module/text/numbers.scm
@@ -154,8 +154,8 @@
       [(2)
        ;; varannan månad
        ;; vartannat år
-       (list (if neutrum "t")
+       (list (when neutrum "t")
              "anna"
              (if neutrum "t" "n"))]
-      [else (list (if neutrum "t") " "
+      [else (list (when neutrum "t") " "
                   (number->string-ordinal count))]))))
-- 
cgit v1.2.3