diff options
author | Andreas Rottmann | 2010-11-04 22:02:22 +0100 |
---|---|---|
committer | Andreas Rottmann | 2010-11-04 22:02:22 +0100 |
commit | 146a68731fb31f77df6b49ab912f6314b2fb7ff5 (patch) | |
tree | 8f272642596d278f4ae3a2c91f2f5d13c79711fd | |
parent | 2649cadc43ed4a4ae240d1b75d902b7299463c4d (diff) | |
download | tekuti-146a68731fb31f77df6b49ab912f6314b2fb7ff5.tar.gz tekuti-146a68731fb31f77df6b49ab912f6314b2fb7ff5.zip |
Remove two unnecessary instances of quasisyntax
-rw-r--r-- | tekuti/request.scm | 4 |
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) |