From 73a4bfc3d8e9bb5365e33a11a6ad3b8340d5195b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 12 Jun 2022 21:09:35 +0200
Subject: Remove custom let*.

While it was nice, the most important part was the multi-valued let from
srfi-71 (which is implemented in srfi-71)). The minor pattern matching
structures could often be replaced with car+cdr, or a propper match.
---
 module/web/http/make-routes.scm | 41 ++++++++++++++++++++++-------------------
 1 file changed, 22 insertions(+), 19 deletions(-)

(limited to 'module/web/http')

diff --git a/module/web/http/make-routes.scm b/module/web/http/make-routes.scm
index 105bba50..f5277ca5 100644
--- a/module/web/http/make-routes.scm
+++ b/module/web/http/make-routes.scm
@@ -2,8 +2,10 @@
   :export (make-routes)
   :use-module (hnh util)
   :use-module (ice-9 regex)
+  :use-module (ice-9 match)
   :use-module (ice-9 curried-definitions)
   :use-module (srfi srfi-1)
+  :use-module (srfi srfi-71)
   )
 
 
@@ -36,26 +38,27 @@
 
 
 (define ((generate-case regex-table) defn)
-  (let* (((method uri param-list . body) defn)
-         (_ tokens (parse-endpoint-string uri))
-         (diff intersect (lset-diff+intersection eq? param-list tokens)))
-    `((and (eq? r:method (quote ,method))
-           (regexp-exec ,(car (assoc-ref regex-table uri)) r:path))
-      => (lambda (match-object)
-           ;; (assert
-           ;;  (= (1- (match:count match-object))
-           ;;     (length intersect)))
+  (match defn
+    ((method uri param-list body ...)
+     (let* ((_ tokens (parse-endpoint-string uri))
+               (diff intersect (lset-diff+intersection eq? param-list tokens)))
+          `((and (eq? r:method (quote ,method))
+                 (regexp-exec ,(car (assoc-ref regex-table uri)) r:path))
+            => (lambda (match-object)
+                 ;; (assert
+                 ;;  (= (1- (match:count match-object))
+                 ;;     (length intersect)))
 
-           ;; 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)
-                 ,@body))
-            ,@(unless (null? intersect)
-                (map (lambda (i)
-                       `((@ (ice-9 regex) match:substring) match-object ,i))
-                     (cdr (iota (1+ (length intersect)))))))))))
+                 ;; 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)
+                      ,@body))
+                  ,@(unless (null? intersect)
+                      (map (lambda (i)
+                             `((@ (ice-9 regex) match:substring) match-object ,i))
+                           (cdr (iota (1+ (length intersect)))))))))))))
 
 (define-macro (make-routes . routes)
   ;; Ensures that all regexes are only compiled once.
-- 
cgit v1.2.3