suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

indent

Browse Source
This commit is contained in:
Jay McCarthy 2013-05-21 06:38:36 -06:00
parent f79c93f74a
commit 7cc4488c56
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/web-server/dispatch/syntax.rkt
View File

@ -88,7 +88,10 @@
(with-syntax
([((from-path-pat ...) ...)
(map (lambda (pp/is-pre)
(define pp/is (datum->syntax pp/is-pre (filter (compose not string-syntax?) (syntax->list pp/is-pre)) pp/is-pre))
(define pp/is
(datum->syntax pp/is-pre
(filter (compose not string-syntax?) (syntax->list pp/is-pre))
pp/is-pre))
(for/list ([pp/i (dispatch-pattern-not-... pp/is)]
[next-...? (dispatch-pattern-next-...? pp/is)])
(with-syntax ([pp pp/i]