diff options
Diffstat (limited to '')
-rw-r--r-- | module/text/numbers.scm | 4 | ||||
-rw-r--r-- | 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) |