From 30e70b3d285c112f092a9ec1a18626ce6533a275 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 23 Aug 2020 16:40:34 +0200 Subject: Repair tests. --- module/text/numbers.scm | 4 ++-- tests/web-server.scm | 2 +- 2 files changed, 3 insertions(+), 3 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))])))) diff --git a/tests/web-server.scm b/tests/web-server.scm index 612911f0..49092607 100644 --- a/tests/web-server.scm +++ b/tests/web-server.scm @@ -1,4 +1,4 @@ -(((server routes) make-make-routes) +(((calp server routes) make-make-routes) ((web server) run-server) ((ice-9 threads) call-with-new-thread cancel-thread) ((web client) http-get) -- cgit v1.2.3