aboutsummaryrefslogtreecommitdiff
path: root/module/server/macro.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-17 10:17:33 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-17 10:17:33 +0200
commitf7e489178120813a4aff0eff0140661bf402cbae (patch)
treec55d3ec6ee869a29dd892c8573734df6e18236f6 /module/server/macro.scm
parentSetup directories for dist. (diff)
downloadcalp-f7e489178120813a4aff0eff0140661bf402cbae.tar.gz
calp-f7e489178120813a4aff0eff0140661bf402cbae.tar.xz
Work on paths?
Diffstat (limited to 'module/server/macro.scm')
-rw-r--r--module/server/macro.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/server/macro.scm b/module/server/macro.scm
index 2fb87f54..41d23d34 100644
--- a/module/server/macro.scm
+++ b/module/server/macro.scm
@@ -60,7 +60,7 @@
(define-macro (make-routes . routes)
`(lambda* (request body #:optional state)
- (format (current-error-port) "~a~%" request)
+ ;; (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.
(let ((r:method ((@ (web request) request-method) request))