[plt-scheme] idiomatic way to get keys and values

If I have a hash table h, I can get the keys and values

(let
  ([keys (hash-map h (lambda (k v) k))]
   [values (hash-map h (lambda (k v) v)])

but that seems kind of klunky. Is there a more idiomatic way that I'm
not thinking of?

Todd