[plt-scheme] Re: Contract question

pedro pinto wrote:
> Hi there,
>  
> I just started fumbling around with contracts and I was trying to write 
> a contract for a function similar to map:
>  
> map proc clist1 clist2 ... -> list
>  
> Is there a way to say that proc is a procedure whose arity should match 
> the number of clist arguments?

(->r ([proc
          (and/c procedure?
            (lambda (_)
              (procedure-arity-includes? proc
                 (length arg-lists))))])

    arg-lists (lambda (_) (ormap proper-list? arg-lists))
    proper-list?)