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.

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/test/server.scm b/tests/test/server.scm
index 1b5d4775..43b60769 100644
--- a/tests/test/server.scm
+++ b/tests/test/server.scm
@@ -4,21 +4,21 @@
 
 (define-module (test server)
   :use-module (srfi srfi-64)
+  :use-module (srfi srfi-71)
   :use-module (srfi srfi-88)
   :use-module ((web http make-routes)
-               :select (parse-endpoint-string))
-  :use-module ((hnh util) :select (let*)))
+               :select (parse-endpoint-string)))
 
 (test-assert "Check that parsing doesn't crash"
   (parse-endpoint-string "/static/:dir/:file"))
 
 ;; Checks that parsing produces correct results
-(let* ((path args (parse-endpoint-string "/static/:dir/:file")))
+(let ((path args (parse-endpoint-string "/static/:dir/:file")))
   (test-equal "/static/([^/.]+)/([^/.]+)" path)
   (test-equal '(dir file) args))
 
 ;; Checks that parsing with custom regex works
 ;; along with literal periods.
-(let* ((path args (parse-endpoint-string "/static/:filename{.*}.:ext")))
+(let ((path args (parse-endpoint-string "/static/:filename{.*}.:ext")))
   (test-equal "/static/(.*)\\.([^/.]+)" path)
   (test-equal '(filename ext) args))