From 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 04:14:46 +0200 Subject: Normalize keyword syntax. --- module/web/http/make-routes.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'module/web/http/make-routes.scm') 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. -- cgit v1.2.3