aliens/tekuti
1
0
Fork 0
Code Activity

Remove two unnecessary instances of quasisyntax

Browse source
This commit is contained in:
Andreas Rottmann 2010-11-04 22:02:22 +01:00
parent 2649cadc43
commit 146a68731f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/request.scm
View file

@ -141,7 +141,7 @@
(syntax-case stx () (syntax-case stx ()
((_ request (binding ...) body ...) ((_ request (binding ...) body ...)
(with-syntax (((binding ...) (map make-binding #'(binding ...)))) (with-syntax (((binding ...) (map make-binding #'(binding ...))))
#`(let ((request-var request)) #'(let ((request-var request))
(let (binding ...) (let (binding ...)
body ...))))))) body ...)))))))
@ -187,7 +187,7 @@
(syntax-case stx () (syntax-case stx ()
((_ path clause ...) ((_ path clause ...)
(with-syntax (((cond-clause ...) (map process-clause #'(clause ...)))) (with-syntax (((cond-clause ...) (map process-clause #'(clause ...))))
#`(let ((path-var path)) #'(let ((path-var path))
(cond cond-clause ...))))))) (cond cond-clause ...)))))))
(define (rcons*-fold request . keys-and-procs) (define (rcons*-fold request . keys-and-procs)