ml#codemacro65227">define-def</a> ident assoc-list defaultvalue)
  `(define ,ident 
     (or
      (cond
       ((assq ',ident ,assoc-list) =&gt; cdr)
       (else #f))
      ,defaultvalue)))
</pre>
<h4><a name='codefunc26928' href='#docfunc26928'>http-transaction</a></h4>
<i><a href='#tocfunc26928'>Index</a></i><br>

<pre> The body of the function. 
 The function is written as a collection of mutually-recursive
 procedures that implement a transactional FSM.
</pre>
<pre>(define (<a href="http.html#codefunc