From 9325fe0f25b3611b967aeb49a80eda68a53a9fff Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 19 Feb 2011 06:54:35 -0700 Subject: [PATCH] fix `peek-string-evt' and related docs Closes PR 11748 --- collects/scribblings/reference/port-lib.scrbl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/scribblings/reference/port-lib.scrbl b/collects/scribblings/reference/port-lib.scrbl index 0ebcd079bf..470e55d128 100644 --- a/collects/scribblings/reference/port-lib.scrbl +++ b/collects/scribblings/reference/port-lib.scrbl @@ -689,13 +689,15 @@ Like @racket[read-line-evt], but returns a byte string instead of a string.} @defproc*[([(peek-bytes-evt [k exact-nonnegative-integer?] [skip exact-nonnegative-integer?] - [progress evt?] [in input-port?]) evt?] + [progress (or/c evt? #f)] [in input-port?]) evt?] [(peek-bytes!-evt [bstr (and/c bytes? (not/c immutable?))] [skip exact-nonnegative-integer?] [progress (or/c evt? #f)] [in input-port?]) evt?] [(peek-bytes-avail!-evt [bstr (and/c bytes? (not/c immutable?))] [skip exact-nonnegative-integer?] [progress (or/c evt? #f)] [in input-port?]) evt?] - [(peek-string-evt [k exact-nonnegative-integer?] [in input-port?]) evt?] - [(peek-string!-evt [str (and/c string? (not/c immutable?))] [in input-port?]) evt?])]{ + [(peek-string-evt [k exact-nonnegative-integer?] [skip exact-nonnegative-integer?] + [progress (or/c evt? #f)] [in input-port?]) evt?] + [(peek-string!-evt [str (and/c string? (not/c immutable?))] [skip exact-nonnegative-integer?] + [progress (or/c evt? #f)] [in input-port?]) evt?])]{ Like the @racket[read-...-evt] functions, but for peeking. The @racket[skip] argument indicates the number of bytes to skip, and