future.clj

(defn future-call [f]
  ;; Before we start the future grab a copy of the current stack
  (let [stack (.getStackTrace (Exception.))]
    (future
      (try
        (f)
        (catch Exception e
          ;; An exception thrown from a future has a stack that does not
          ;; include the outer stack trace. We can fix this by appending
          ;; the stack trace we captured above into the caught exception.
          (.setStackTrace e (into-array
                             StackTraceElement
                             (concat (.getStackTrace e) stack)))
          (throw e))))))

(defmacro future
  [& body]
  `(future-call (fn [] ~@body)))