Further reading:
(defn escrow [buyer seller amount :: coin release-time :: tai-instant] (def state 'pending) (after release-time (if (= state 'pending) (do (transfer-coin seller amount) (set! state 'released)))) (defn cancel [] (if (before? (now) release-time) (do (transfer-coin buyer amount) (set! state 'cancelled))))) tai lisp tl
(defmacro when-positive [cond :: (int : > 0) & body] `(if ,cond (do ,@body) nil)) Further reading: (defn escrow [buyer seller amount ::
For those interested in learning more about Tai LISP and its applications, here are some recommended resources: 0) & body] `(if