Provide `current-hash` parameter, which defaults to `hash`.

Specifies the function used for `{}` applications. Can be `hash`,
`hasheq`, or anything that takes same `k v ... ...` arguments.
Add unit test I should have included in commit 51630840.