From 23a0823dec5f4c929d9ddbccb631979a9914e235 Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Tue, 29 Oct 2013 13:56:07 -0400
Subject: [PATCH] Fix doc contracts

---
 pkgs/draw-pkgs/draw-doc/scribblings/draw/font-class.scrbl     | 2 +-
 pkgs/gui-pkgs/gui-doc/scribblings/gui/dialog-funcs.scrbl      | 2 +-
 pkgs/racket-pkgs/racket-doc/scribblings/reference/class.scrbl | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/pkgs/draw-pkgs/draw-doc/scribblings/draw/font-class.scrbl b/pkgs/draw-pkgs/draw-doc/scribblings/draw/font-class.scrbl
index f72269d0ad..639d1e8e13 100644
--- a/pkgs/draw-pkgs/draw-doc/scribblings/draw/font-class.scrbl
+++ b/pkgs/draw-pkgs/draw-doc/scribblings/draw/font-class.scrbl
@@ -211,7 +211,7 @@ Gets the font's weight. See @racket[font%] for information about
 
 }
 
-@defmethod[(screen-glyph-exists? [c char]
+@defmethod[(screen-glyph-exists? [c char?]
                                  [for-label? any/c #f])
            boolean?]{
 
diff --git a/pkgs/gui-pkgs/gui-doc/scribblings/gui/dialog-funcs.scrbl b/pkgs/gui-pkgs/gui-doc/scribblings/gui/dialog-funcs.scrbl
index 8bbbc0dd33..8ef81243d9 100644
--- a/pkgs/gui-pkgs/gui-doc/scribblings/gui/dialog-funcs.scrbl
+++ b/pkgs/gui-pkgs/gui-doc/scribblings/gui/dialog-funcs.scrbl
@@ -162,7 +162,7 @@ See also @racket[path-dialog%] for a richer interface.
 
 @defproc[(get-directory [message (or/c label-string? #f) #f]
                         [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) #f]
-                        [directory (or/c path? #f) #f]
+                        [directory (or/c path-string? #f) #f]
                         [style (listof (or/c 'enter-packages 'common)) null]
                         [#:dialog-mixin dialog-mixin (make-mixin-contract path-dialog%) (λ (x) x)])
          (or/c path #f)]{
diff --git a/pkgs/racket-pkgs/racket-doc/scribblings/reference/class.scrbl b/pkgs/racket-pkgs/racket-doc/scribblings/reference/class.scrbl
index fd6263135a..0893babfbc 100644
--- a/pkgs/racket-pkgs/racket-doc/scribblings/reference/class.scrbl
+++ b/pkgs/racket-pkgs/racket-doc/scribblings/reference/class.scrbl
@@ -2576,7 +2576,7 @@ not including fields whose names are local (i.e., declared with
 ]}
 
 
-@defproc[(object-info [object any/c]) (values (or/c class? #f) boolean?)]{
+@defproc[(object-info [object object?]) (values (or/c class? #f) boolean?)]{
 
 Returns two values, analogous to the return
 values of @racket[struct-info]: