The current srfi says vector-find-median runs in O(n), whilest vector-find-median!
runs in O(n ln n).   Shouldn't the former be O(n ln n) as well?  The reference
implementation looks like it is O(n ln n), and I don't see how to make it run in O(n).