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 ()
((_ 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)