aboutsummaryrefslogtreecommitdiff
path: root/module/text
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-23 16:40:34 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-23 16:40:34 +0200
commit30e70b3d285c112f092a9ec1a18626ce6533a275 (patch)
tree8bee92bfa0b16fd30ad8e494440b049692297cbc /module/text
parentBase64 now free floating top level. (diff)
downloadcalp-30e70b3d285c112f092a9ec1a18626ce6533a275.tar.gz
calp-30e70b3d285c112f092a9ec1a18626ce6533a275.tar.xz
Repair tests.
Diffstat (limited to 'module/text')
-rw-r--r--module/text/numbers.scm4
1 files changed, 2 insertions, 2 deletions
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))]))))