From 5205f45c5028232bf80e0abc7fbd90b9f8433f03 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 15 May 2008 19:19:18 +0000 Subject: [PATCH] doc corrections svn: r9857 --- collects/scribblings/reference/class.scrbl | 7 ++--- collects/scribblings/reference/cmdline.scrbl | 2 +- .../scribblings/reference/filesystem.scrbl | 2 +- collects/scribblings/reference/port-lib.scrbl | 26 +++++++++---------- .../scribblings/reference/procedures.scrbl | 2 +- .../scribblings/reference/sequences.scrbl | 13 +++++----- .../scribblings/reference/serialization.scrbl | 2 +- .../scribblings/reference/stx-trans.scrbl | 5 ++-- collects/scribblings/slideshow/picts.scrbl | 18 ++++++------- 9 files changed, 39 insertions(+), 38 deletions(-) diff --git a/collects/scribblings/reference/class.scrbl b/collects/scribblings/reference/class.scrbl index 02eae7698e..6fcd7faaae 100644 --- a/collects/scribblings/reference/class.scrbl +++ b/collects/scribblings/reference/class.scrbl @@ -334,9 +334,10 @@ Like @scheme[class*], but omits the @scheme[interface-expr]s, for the case that @defidform[this]{ -Within a @scheme[class*] form, refers to the current object (i.e., the -object being initialized or whose method was called). Use outside the -body of a @scheme[class*] form is a syntax error.} +@index['("self")]{Within} a @scheme[class*] form, @scheme[this] refers +to the current object (i.e., the object being initialized or whose +method was called). Use outside the body of a @scheme[class*] form is +a syntax error.} @defclassforms[ [(inspect inspector-expr) ()] diff --git a/collects/scribblings/reference/cmdline.scrbl b/collects/scribblings/reference/cmdline.scrbl index e6c36ce938..bdf5ab8833 100644 --- a/collects/scribblings/reference/cmdline.scrbl +++ b/collects/scribblings/reference/cmdline.scrbl @@ -210,7 +210,7 @@ Example: @defproc[(parse-command-line [name (or/c string? path?)] [argv (or/c (listof string?) (vectorof string?))] [table (listof (list/c symbol? list?))] - [finish-proc ((list?) list? . ->* . any)] + [finish-proc ((list?) () #:rest list? . ->* . any)] [arg-help-strs (listof string?)] [help-proc (string? . -> . any) (lambda (str) ....)] [unknown-proc (string? . -> . any) (lambda (str) ...)]) diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index fdba682f76..959e8db99f 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -603,7 +603,7 @@ directory, returns a list such that . -> . any/c) (or/c procedure? ((path? (one-of/c 'dir) any/c) - . ->* . (any/c any/c))))] + . -> . (values any/c any/c))))] [init-val any/c] [start-path (or/c path-string? false/c) #f] [follow-links? any/c #t]) diff --git a/collects/scribblings/reference/port-lib.scrbl b/collects/scribblings/reference/port-lib.scrbl index 474da5fbad..2135b49f16 100644 --- a/collects/scribblings/reference/port-lib.scrbl +++ b/collects/scribblings/reference/port-lib.scrbl @@ -46,9 +46,9 @@ input ports as it becomes available.} false/c)))] [close (-> any)] [get-location (or/c - (() - . ->* . - ((or/c positive-exact-integer? false/c) + (-> + (values + (or/c positive-exact-integer? false/c) (or/c nonnegative-exact-integer? false/c) (or/c positive-exact-integer? false/c))) false/c) @@ -338,12 +338,12 @@ Like @scheme[relocate-input-port], but for output ports.} @defproc[(transplant-input-port [in input-port?] [get-location (or/c - (() - . ->* . - ((or/c exact-positive-integer? false/c) - (or/c exact-nonnegative-integer? false/c) - (or/c exact-positive-integer? false/c))) - false/c)] + (-> + (values + (or/c exact-positive-integer? false/c) + (or/c exact-nonnegative-integer? false/c) + (or/c exact-positive-integer? false/c))) + false/c)] [init-pos (-> exact-positive-integer?)] [close? any/c #t] [count-lines! (-> any) void]) @@ -360,12 +360,12 @@ is enabled for the resulting port. The default is @scheme[void].} @defproc[(transplant-output-port [in input-port?] [get-location (or/c - (() - . ->* . - ((or/c exact-positive-integer? false/c) + (-> + (values + (or/c exact-positive-integer? false/c) (or/c exact-nonnegative-integer? false/c) (or/c exact-positive-integer? false/c))) - false/c)] + false/c)] [init-pos (-> exact-positive-integer?)] [close? any/c #t] [count-lines! (-> any) void]) diff --git a/collects/scribblings/reference/procedures.scrbl b/collects/scribblings/reference/procedures.scrbl index cbccde0630..9394c42ad3 100644 --- a/collects/scribblings/reference/procedures.scrbl +++ b/collects/scribblings/reference/procedures.scrbl @@ -170,7 +170,7 @@ list is also in the second list. ]} @defproc[(make-keyword-procedure - [proc (((listof keyword?) list?) list? . ->* . any)] + [proc (((listof keyword?) list?) () #:rest list? . ->* . any)] [plain-proc procedure? (lambda args (keyword-apply proc null null args))]) procedure?]{ diff --git a/collects/scribblings/reference/sequences.scrbl b/collects/scribblings/reference/sequences.scrbl index 852bcf27fb..36f1b964ce 100644 --- a/collects/scribblings/reference/sequences.scrbl +++ b/collects/scribblings/reference/sequences.scrbl @@ -144,13 +144,12 @@ sequence?]{ Returns a sequence that contains the elements of (inclusive) for which applying @scheme[pred] to the element produces @scheme[#t], after which the sequence ends.} -@defproc[(make-do-sequence [thunk (->* () - (values (any/c . -> . any) - (any/c . -> . any/c) - any/c - (any/c . -> . any/c) - (() () #:rest list? . ->* . any/c) - ((any/c) () #:rest list? . ->* . any/c)))]) +@defproc[(make-do-sequence [thunk (-> (values (any/c . -> . any) + (any/c . -> . any/c) + any/c + (any/c . -> . any/c) + (() () #:rest list? . ->* . any/c) + ((any/c) () #:rest list? . ->* . any/c)))]) sequence?]{ Returns a sequence whose elements are generated by the procedures and diff --git a/collects/scribblings/reference/serialization.scrbl b/collects/scribblings/reference/serialization.scrbl index a220ebb904..a47ffb4712 100644 --- a/collects/scribblings/reference/serialization.scrbl +++ b/collects/scribblings/reference/serialization.scrbl @@ -409,7 +409,7 @@ instance of @scheme[id] and copies its field values into @scheme[x]. @; ---------------------------------------------------------------------- @defproc[(make-deserialize-info [make procedure?] - [cycle-make (() . ->* . (any/c procedure?))]) + [cycle-make (-> (values any/c procedure?))]) any]{ Produces a deserialization information record to be used by diff --git a/collects/scribblings/reference/stx-trans.scrbl b/collects/scribblings/reference/stx-trans.scrbl index 07d636776d..f00d22754b 100644 --- a/collects/scribblings/reference/stx-trans.scrbl +++ b/collects/scribblings/reference/stx-trans.scrbl @@ -540,8 +540,9 @@ former list (so that a module will be @tech{instantiate}d or former list).} -@defproc[(make-require-transformer [proc ((syntax?) . ->* . ((listof import?) - (listof import-source?)))]) +@defproc[(make-require-transformer [proc (syntax? . -> . (values + (listof import?) + (listof import-source?)))]) require-transformer?]{ Creates a @deftech{require transformer} (i.e., a structure with the diff --git a/collects/scribblings/slideshow/picts.scrbl b/collects/scribblings/slideshow/picts.scrbl index df70326c9e..4792af2ded 100644 --- a/collects/scribblings/slideshow/picts.scrbl +++ b/collects/scribblings/slideshow/picts.scrbl @@ -280,18 +280,18 @@ argument for consistency with the other functions.} @defproc*[([(pin-line [pict pict?] [src pict-path?] - [find-src (pict? pict-path? . ->* . (real? real?))] + [find-src (pict? pict-path? . -> . (values real? real?))] [dest pict-path?] - [find-dest (pict? pict-path? . ->* . (real? real?))] + [find-dest (pict? pict-path? . -> . (values real? real?))] [#:line-width line-width (or/c false/c real?) #f] [#:color color (or/c false/c string? (is-a/c? color%)) #f] [#:under? under? any/c #f]) pict?] [(pin-arrow-line [arrow-size real?] [pict pict?] [src pict-path?] - [find-src (pict? pict-path? . ->* . (real? real?))] + [find-src (pict? pict-path? . -> . (values real? real?))] [dest pict-path?] - [find-dest (pict? pict-path? . ->* . (real? real?))] + [find-dest (pict? pict-path? . -> . (values real? real?))] [#:line-width line-width (or/c false/c real?) #f] [#:color color (or/c false/c string? (is-a/c? color%)) #f] [#:under? under? any/c #f] @@ -299,9 +299,9 @@ argument for consistency with the other functions.} pict?] [(pin-arrows-line [arrow-size real?] [pict pict?] [src pict-path?] - [find-src (pict? pict-path? . ->* . (real? real?))] + [find-src (pict? pict-path? . -> . (values real? real?))] [dest pict-path?] - [find-dest (pict? pict-path? . ->* . (real? real?))] + [find-dest (pict? pict-path? . -> . (values real? real?))] [#:line-width line-width (or/c false/c real?) #f] [#:color color (or/c false/c string? (is-a/c? color%)) #f] [#:under? under? any/c #f] @@ -398,7 +398,7 @@ comparing the last-element bottom-right corners.} pict?] [(pin-over [base pict?] [find-pict pict-path?] - [find (pict? pict-path? . ->* . (real? real?))] + [find (pict? pict-path? . -> . (values real? real?))] [pict pict?]) pict?])]{ @@ -415,7 +415,7 @@ should be something like @scheme[lt-find].} pict?] [(pin-under [base pict?] [find-pict pict?] - [find (pict? pict? . ->* . (real? real?))] + [find (pict? pict? . -> . (values real? real?))] [pict pict?]) pict?])]{ @@ -732,7 +732,7 @@ for use with @scheme[pin-over].} [(pin-balloon [balloon balloon?] [base pict?] [at-pict pict-path?] - [find ((pict? pict-path?) . ->* . (real? real?))]) + [find (pict? pict-path? . -> . (values real? real?))]) pict?])]{ Superimposes the pict in @scheme[balloon] onto @scheme[base] to