clojure: small improvement in morphism function