pcall

(ns *.pcall
  (:refer-clojure :exclude [try resolve])

  )

(bind )

(defprotocol ITry)

(defrecord Try [ok result]

  ITry

  (ok? [_] ok)

  (error? [_] (not ok))

  (resolve)

  )

(let [http-response (....)
      foo ( http-response (print ))
      bar

      ])

(defrecord)

(defn ok [x] [true x])

(defn error [x] [false x])

(defn ok?
  )

(defmacro try [& body]
  `(try
     (let [result# (do ~@body)]
       (ok result#))
     (catch Exception e#
       (let [exp# (clojure.string/join \space '~body)
             err# (-> e# .getMessage (or "unknown error"))
             msg# (format "Error: %s, expression: %s" err# exp#)]
         (error msg#)))))

(defn resolve
  [pair]

  )