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

Delegate the pattern matching directly to dispatch-rules.

Browse Source
This commit is contained in:
Danny Yoo 2013-01-16 14:00:25 -07:00
parent 4dfe409772
commit 7e3d5987ff
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/dispatch/container.rkt
View File

@ -44,8 +44,8 @@
c c
(snoc (container-bunches c) (bunch d u)))) (snoc (container-bunches c) (bunch d u))))
(define-syntax-rule (dispatch-rules! container-expr [pat fun] ...) (define-syntax-rule (dispatch-rules! container-expr pattern-clause ...)
(let-values ([(dispatch url) (dispatch-rules [pat fun] ...)]) (let-values ([(dispatch url) (dispatch-rules pattern-clause ...)])
(container-cons! container-expr (container-cons! container-expr
dispatch url))) dispatch url)))