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

Make send/suspend/[url/]dispatch allow values

Browse Source 
Fix the send/suspend/[url/]dispatch's contracts (any/c -> any) to
allow values (and match the docs).
This commit is contained in:
Arek Korbik 2012-03-26 13:58:57 +02:00 committed by Matthew Flatt
parent 201534b7ad
commit 0a5f1a21a6
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/servlet/web.rkt
View File

@ -50,9 +50,9 @@
[send/finish (can-be-response? . -> . void?)]
[send/forward ((string? . -> . can-be-response?) . -> . request?)]
[send/suspend ((string? . -> . can-be-response?) . -> . request?)]
[send/suspend/dispatch ((((request? . -> . any) . -> . string?) . -> . can-be-response?) . -> . any/c)]
[send/suspend/dispatch ((((request? . -> . any) . -> . string?) . -> . can-be-response?) . -> . any)]
[send/suspend/url ((url? . -> . can-be-response?) . -> . request?)]
[send/suspend/url/dispatch ((((request? . -> . any/c) . -> . url?) . -> . can-be-response?) . -> . any/c)])
[send/suspend/url/dispatch ((((request? . -> . any) . -> . url?) . -> . can-be-response?) . -> . any)])
;; ************************************************************
;; EXPORTS