plus-maybe

gistfile1.clj

(defmacro plus-maybe [mvs]
  `(let [mvs# (quote ~mvs)
         mv# (eval (first mvs#))
         mvs# (clojure.core/map (fn [mv#]
                                  (if (= (class mv#) maybe-monad)
                                    mv#
                                    (eval mv#)))
                                (rest mvs#))]
     (monads.core/plus-step mv# mvs#)))