From feefb97cf9118c8e5d7018e33887a371dadc5eab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sun, 6 Oct 2019 13:35:20 +0200
Subject: Minor cleanup in scheme code.

---
 module/server/macro.scm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'module/server')

diff --git a/module/server/macro.scm b/module/server/macro.scm
index 71452d0f..123fc468 100644
--- a/module/server/macro.scm
+++ b/module/server/macro.scm
@@ -7,14 +7,6 @@
 
 (use-modules* (web (response uri)))
 
-(define (not-null? obj)
-  (if (null? obj) #f obj))
-
-(define (match-count pattern str)
-  (fold-matches pattern str 0
-                (lambda (_ count)
-                  (1+ count))))
-
 
 
 (define-public (parse-endpoint-string str)
@@ -53,6 +45,8 @@
 (define-macro (make-routes . routes)
 
   `(lambda* (request body #:optional state)
+     ;; ALl these bindings generate compile time warnings since the expansion
+     ;; of the macro might not use them. This isn't really a problem.
      (let ((r:method  (request-method  request))
            (r:uri     (request-uri     request))
            (r:version (request-version request))
-- 
cgit v1.2.3