From 146a68731fb31f77df6b49ab912f6314b2fb7ff5 Mon Sep 17 00:00:00 2001
From: Andreas Rottmann
Date: Thu, 4 Nov 2010 22:02:22 +0100
Subject: Remove two unnecessary instances of quasisyntax

---
 tekuti/request.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tekuti/request.scm b/tekuti/request.scm
index d10895e..4080772 100644
--- a/tekuti/request.scm
+++ b/tekuti/request.scm
@@ -141,7 +141,7 @@
     (syntax-case stx ()
       ((_ request (binding ...) body ...)
        (with-syntax (((binding ...) (map make-binding #'(binding ...))))
-         #`(let ((request-var request))
+         #'(let ((request-var request))
              (let (binding ...)
                body ...)))))))
 
@@ -187,7 +187,7 @@
     (syntax-case stx ()
       ((_ path clause ...)
        (with-syntax (((cond-clause ...) (map process-clause #'(clause ...))))
-         #`(let ((path-var path))
+         #'(let ((path-var path))
              (cond cond-clause ...)))))))
 
 (define (rcons*-fold request . keys-and-procs)
-- 
cgit v1.2.3-54-g00ecf