diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/web | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'module/web')
| -rw-r--r-- | module/web/http/make-routes.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/web/http/make-routes.scm b/module/web/http/make-routes.scm index 3005200b..aa3be1ed 100644 --- a/module/web/http/make-routes.scm +++ b/module/web/http/make-routes.scm @@ -5,6 +5,7 @@ :use-module (ice-9 curried-definitions) :use-module (srfi srfi-1) :use-module (srfi srfi-71) + :use-module (srfi srfi-88) :export (parse-endpoint-string make-routes) ) @@ -53,8 +54,8 @@ ;; Those parameters which were present in the template uri ((lambda ,intersect ;; Those that only are in the query string - (lambda* (,@(unless (null? diff) `(#:key ,@diff #:allow-other-keys)) - #:rest rest) + (lambda* (,@(unless (null? diff) `(key: ,@diff allow-other-keys:)) + rest: rest) ,@body)) ,@(unless (null? intersect) (map (lambda (i) @@ -70,7 +71,7 @@ (map cadr routes))) `(let ,(map cdr routes-regexes) - (lambda* (request body #:optional state) + (lambda* (request body optional: state) ;; (format (current-error-port) "~a~%" request) ;; All these bindings generate compile time warnings since the expansion ;; of the macro might not use them. This isn't really a problem. |