make contracts slightly more readable for

the get-location arguments to make-input-port
and make-output-port
This commit is contained in:
Robby Findler 2013-01-24 11:45:27 -06:00
parent a80830ab1d
commit 27442fa44c

View File

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