Make the `read` function configurable.

There's a call to `(read)` in `read-fn`. It would be very helpful for cider if this function could be made configurable (perhaps with a dynamic variable), so we could more easily read input in specialized ways.
