diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 16:40:34 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-23 16:40:34 +0200 |
| commit | 30e70b3d285c112f092a9ec1a18626ce6533a275 (patch) | |
| tree | 8bee92bfa0b16fd30ad8e494440b049692297cbc | |
| parent | Base64 now free floating top level. (diff) | |
| download | calp-30e70b3d285c112f092a9ec1a18626ce6533a275.tar.gz calp-30e70b3d285c112f092a9ec1a18626ce6533a275.tar.xz | |
Repair tests.
| -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) |