diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-31 11:33:06 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-31 11:33:06 +0100 |
| commit | 2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869 (patch) | |
| tree | 78da51a4f033f8431460658b2066a484a91c55a7 /module/entry-points | |
| parent | Delete old srfi-19 extensions. (diff) | |
| download | calp-2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869.tar.gz calp-2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869.tar.xz | |
Work.
Diffstat (limited to 'module/entry-points')
| -rw-r--r-- | module/entry-points/server.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 4215ab9a..0b40a6ff 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -9,9 +9,12 @@ (ice-9 (match control rdelim curried-definitions ftw getopt-long iconv regex #| regex here due to bad macros |# )) - (srfi (srfi-1 srfi-19 srfi-88))) + (srfi (srfi-1 srfi-88))) -(use-modules (srfi srfi-19 util)) +(use-modules (srfi srfi-19 alt) + (srfi srfi-19 alt util)) + +;; (use-modules (srfi srfi-19 util)) (define (file-extension name) (car (last-pair (string-split name #\.)))) @@ -41,7 +44,7 @@ (start (if m (date year: 2019 day: 1 month: (string->number m)) (current-date))) - (end (set (date-month start) = (+ 1)))) + (end (set (month start) = (+ 1)))) (return '((content-type text/html)) (with-output-to-string |