doc corrections

svn: r9857
This commit is contained in:
Matthew Flatt 2008-05-15 19:19:18 +00:00
parent 84d010b567
commit 5205f45c50
9 changed files with 39 additions and 38 deletions

View File

@ -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) ()]

View File

@ -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) ...)])

View File

@ -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])

View File

@ -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,9 +338,9 @@ 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)
(->
(values
(or/c exact-positive-integer? false/c)
(or/c exact-nonnegative-integer? false/c)
(or/c exact-positive-integer? false/c)))
false/c)]
@ -360,9 +360,9 @@ 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)]

View File

@ -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?]{

View File

@ -144,8 +144,7 @@ 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)
@defproc[(make-do-sequence [thunk (-> (values (any/c . -> . any)
(any/c . -> . any/c)
any/c
(any/c . -> . any/c)

View File

@ -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

View File

@ -540,7 +540,8 @@ former list (so that a module will be @tech{instantiate}d or
former list).}
@defproc[(make-require-transformer [proc ((syntax?) . ->* . ((listof import?)
@defproc[(make-require-transformer [proc (syntax? . -> . (values
(listof import?)
(listof import-source?)))])
require-transformer?]{

View File

@ -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