From 06ce50d51a8ac3d0ed9d8cbd3acfce2b89599f1b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 28 Oct 2009 18:58:59 +0000
Subject: [PATCH] fix contract of 'read-language'

svn: r16446
---
 collects/scribblings/reference/read.scrbl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scribblings/reference/read.scrbl b/collects/scribblings/reference/read.scrbl
index 0a8ae5e68c..a13f7a143c 100644
--- 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.