From a9286ce7262ba3b39b63fc859ca93132cda84e5c Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Sat, 20 Apr 2013 23:17:59 -0400
Subject: [PATCH] Fix doc contracts

---
 collects/scribblings/reference/pairs.scrbl | 2 +-
 collects/scribblings/scribble/manual.scrbl | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl
index f083753afd..2b904c00e6 100644
--- a/collects/scribblings/reference/pairs.scrbl
+++ b/collects/scribblings/reference/pairs.scrbl
@@ -854,7 +854,7 @@ Returns the last pair of a (possibly improper) list.
   (last-pair '(1 2 3 4))]}
 
 
-@defproc[(make-list [k exact-nonnegative-integer?] [v any?])
+@defproc[(make-list [k exact-nonnegative-integer?] [v any/c])
          list?]{
 
 Returns a newly constructed list of length @racket[k], holding
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
index 38a4de967f..973ef18428 100644
--- a/collects/scribblings/scribble/manual.scrbl
+++ b/collects/scribblings/scribble/manual.scrbl
@@ -76,8 +76,8 @@ and @racket[code] versus @racket[racketblock] and
                        (code:line #:line-number-sep line-number-sep-expr)])
               #:contracts ([keep-expr any/c]
                            [indent-expr exact-nonnegative-integer?]
-                           [expand-expr (or/c #f (syntax-object? . -> . syntax-object?))]
-                           [context-expr syntax-object?]
+                           [expand-expr (or/c #f (syntax? . -> . syntax?))]
+                           [context-expr syntax?]
                            [line-number-expr (or/c #f exact-nonnegative-integer?)]
                            [line-number-sep-expr exact-nonnegative-integer?])]{
 
@@ -151,8 +151,8 @@ Like @racket[codeblock], but without the @racket['code-inset]
                        (code:line #:expand expand-expr)
                        (code:line #:context context-expr)])
               #:contracts ([lang-line-expr (or/c #f string?)]
-                           [expand-expr (or/c #f (syntax-object? . -> . syntax-object?))]
-                           [context-expr syntax-object?])]{
+                           [expand-expr (or/c #f (syntax? . -> . syntax?))]
+                           [context-expr syntax?])]{
 
 Like @racket[codeblock], but produces @tech{content} instead of a
 @tech{block}. No @hash-lang[] line should appear in the string content;