make contracts slightly more readable for
the get-location arguments to make-input-port and make-output-port
This commit is contained in:
parent
a80830ab1d
commit
27442fa44c
|
@ -31,9 +31,8 @@ written.
|
|||
#f)
|
||||
#f]
|
||||
[get-location (or/c
|
||||
(()
|
||||
. ->* .
|
||||
((or/c exact-positive-integer? #f)
|
||||
(->
|
||||
(values (or/c exact-positive-integer? #f)
|
||||
(or/c exact-nonnegative-integer? #f)
|
||||
(or/c exact-positive-integer? #f)))
|
||||
#f)
|
||||
|
@ -722,9 +721,8 @@ s
|
|||
#f)
|
||||
#f]
|
||||
[get-location (or/c
|
||||
(()
|
||||
. ->* .
|
||||
((or/c exact-positive-integer? #f)
|
||||
(->
|
||||
(values (or/c exact-positive-integer? #f)
|
||||
(or/c exact-nonnegative-integer? #f)
|
||||
(or/c exact-positive-integer? #f)))
|
||||
#f)
|
||||
|
|
Loading…
Reference in New Issue
Block a user