fix contract of 'read-language'

svn: r16446
2009-10-28 18:58:59 +00:00 · 2009-10-28 18:58:59 +00:00 · 06ce50d51a
commit 06ce50d51a
parent 4ddbe71e2d
1 changed files with 1 additions and 1 deletions
--- a/collects/scribblings/reference/read.scrbl
+++ b/collects/scribblings/reference/read.scrbl
@ -107,7 +107,7 @@ See @secref["readtables"] for an extended example that uses

@defproc[(read-language [in input-port? (current-input-port)]
                        [fail-thunk (-> any) (lambda () (error ...))])
-         any]{
+         (any/c . -> . any)]{

 Reads @scheme[in] in the same way as @scheme[read], but stopping as
 soon as a @tech{reader language} (or its absence) is determined.