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