moved drain-atom! to util.clj