Update core.clj

Clean up a bit.