typo that was not found previously by accident

svn: r6762
This commit is contained in:
Eli Barzilay 2007-06-29 05:20:59 +00:00
parent 4016be1637
commit 53022c83b9

View File

@ -38,7 +38,7 @@ of the @web-server in other applications, or loading a custom
dispatcher. See @file{run.ss} for an example of such a script.
@defproc[(serve [#:dispatch dispatch dispatcher?]
[#:tcp@ tcp\@ tcp-unit^ raw:tcp\@]
[#:tcp\@ tcp\@ tcp-unit^ raw:tcp\@]
[#:port port integer? 80]
[#:listen-ip listen-ip (or/c string? false/c) #f]
[#:max-waiting max-waiting integer? 40]
@ -49,7 +49,7 @@ dispatcher. See @file{run.ss} for an example of such a script.
}
@defproc[(serve/ports [#:dispatch dispatch dispatcher?]
[#:tcp@ tcp\@ tcp-unit^ raw:tcp\@]
[#:tcp\@ tcp\@ tcp-unit^ raw:tcp\@]
[#:ports ports (listof integer?) (list 80)]
[#:listen-ip listen-ip (or/c string? false/c) #f]
[#:max-waiting max-waiting integer? 40]
@ -60,7 +60,7 @@ dispatcher. See @file{run.ss} for an example of such a script.
}
@defproc[(serve/ips+ports [#:dispatch dispatch dispatcher?]
[#:tcp@ tcp\@ tcp-unit^ raw:tcp\@]
[#:tcp\@ tcp\@ tcp-unit^ raw:tcp\@]
[#:ips+ports ips+ports (listof (cons/c (or/c string? false/c) (listof integer?))) (list (cons #f (list 80)))]
[#:max-waiting max-waiting integer? 40]
[#:initial-connection-timeout initial-connection-timeout integer? 60])