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>