[racket] Using prefix-out with contract-out together

Hello,

I would like to prefix the functions that I want to export from a module and
provide a contract for each exported function.  I tried the following style:

   (provide
    (prefix-out mymodule-
                (contract-out
                 [func-a (-> string? any)]
                 [func-b (-> string? any)])))

I realise that the code above doesn't work because contract-out is 
trying to bind
the contracts to the un-prefixed names.  Is there is cleaner way of 
doing this,
rather than just renaming the functions at definition time and using the 
full name
for the contracts?

Thanks


Lorry

-- 
vLife Systems Ltd
Registered Office: The Meridian, 4 Copthall House, Station Square, Coventry, CV1 2FL
Registered in England and Wales No. 06477649
http://vlifesystems.com