in the following code:<br><br>(define-macro (assert-equal lhs rhs)                                                     <br>  (let ((g-lhs (gensym))                                                                 <br>        (g-rhs (gensym)))                                                                <br>
    `(let ((,g-lhs ,lhs) (,g-rhs ,rhs))                                                  <br>       (if (not (equal? ,g-lhs ,g-rhs))                                                  <br>           (raise (list ',lhs '= ,g-lhs '<> ,g-rhs '= ',rhs))))))   <br>
<br>used like this:<br><br>(assert-equal (+ 1 2) (- 3 4))<br><br>is there anyway to rewirte that last line:<br><br>(raise (list ...)) somehow in the format of:<br><br>(raise '(....))<br><br><br>