     ((compound-procedure? procedure)
         (eval-sequence
          (procedure-body procedure)
          (extend-environment
           (procedure-parameters procedure)
           (list-of-delayed-args arguments env) <span class="at">; changed</span>
           (procedure-environment procedure))))
        (<span class="kw">else</span> (<span class="fu">error</span> <span class="cn">"Unknown procedure type: APPLY"</span> procedure))))</code></pre>
<ul>
<li>We also need to change <code>eval-if</code> to u