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,11 +31,10 @@ written.
#f)
#f]
[get-location (or/c
(()
. ->* .
((or/c exact-positive-integer? #f)
(or/c exact-nonnegative-integer? #f)
(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)
#f]
[count-lines! (-> any) void]
@ -722,11 +721,10 @@ s
#f)
#f]
[get-location (or/c
(()
. ->* .
((or/c exact-positive-integer? #f)
(or/c exact-nonnegative-integer? #f)
(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)
#f]
[count-lines! (-> any) void]