summaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
authorGravatar Andreas Rottmann2010-11-04 22:02:22 +0100
committerGravatar Andreas Rottmann2010-11-04 22:02:22 +0100
commit146a68731fb31f77df6b49ab912f6314b2fb7ff5 (patch)
tree8f272642596d278f4ae3a2c91f2f5d13c79711fd
parent2649cadc43ed4a4ae240d1b75d902b7299463c4d (diff)
downloadtekuti-146a68731fb31f77df6b49ab912f6314b2fb7ff5.tar.gz
tekuti-146a68731fb31f77df6b49ab912f6314b2fb7ff5.zip
Remove two unnecessary instances of quasisyntax
-rw-r--r--tekuti/request.scm4
1 files 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)