How to make a contract, that accepts 
(-> input-port? any/c any)
(-> input-port? any/c any/c any)
(-> input-port? any/c any/c any/c any)
...
and
(->* (input-port? any/c) #:rest list? any)

So theare should be at least two args and first arg should be input-port.

-- 
Roman Klochkov
____________________
  Racket Users list:
  http://lists.racket-lang.org/users

Reply via email to