From 836ac18667b2c0f7e235e22a4b80fcc5b122b20e Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Wed, 27 Apr 2011 17:26:40 -0400 Subject: [PATCH] Fix documented contracts in framework/color. --- collects/scribblings/framework/color.scrbl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/scribblings/framework/color.scrbl b/collects/scribblings/framework/color.scrbl index 3502243890..6d09ad486d 100644 --- a/collects/scribblings/framework/color.scrbl +++ b/collects/scribblings/framework/color.scrbl @@ -12,17 +12,17 @@ (get-token (or/c (-> input-port? (values any/c symbol? - (or/c false? symbol?) - exact-nonnegative-integer? - exact-nonnegative-integer?)) + (or/c symbol? #f) + (or/c exact-nonnegative-integer? #f) + (or/c exact-nonnegative-integer? #f))) (-> input-port? exact-nonnegative-integer? any/c (values any/c symbol? - (or/c false? symbol?) - exact-nonnegative-integer? - exact-nonnegative-integer? + (or/c symbol? #f) + (or/c exact-nonnegative-integer? #f) + (or/c exact-nonnegative-integer? #f) exact-nonnegative-integer? any/c)))) (pairs (listof (list/c symbol? symbol?)))) void?))]{ @@ -50,9 +50,9 @@ A symbol indicating how the token should be treated by the paren matcher or @scheme[#f]. This symbol should be in the pairs argument.} @item{ - The starting position of the token.} + The starting position of the token (or @scheme[#f] if eof).} @item{ - The ending position of the token.}] + The ending position of the token (or @scheme[#f] if eof).}] When @scheme[get-token] accepts an offset and mode value in addition to an input port, it must also return two extra results, which are a backup