that may error."</span>
 []
 (<span class="mdzsyn-coresym">if</span> (<span class="mdzsyn-coresym">&gt;</span> (<span class="mdzsyn-coresym">math/random</span>) <span class="mdzsyn-symbol">*my-binding*</span>) (<span class="mdzsyn-coresym">error</span> <span class="mdzsyn-string">"uh oh"</span>)))

(<span class="mdzsyn-coresym">defn</span> <span class="mdzsyn-symbol">do-with-value</span>
 <span class="mdzsyn-string">"Set *my-binding* to a value and run may-error."</span>
 [<span class="mdzsyn-symbol">x</spa