assert-check-trueのマクロ
(define-macro assert-check-true (lambda (test-name . test) (if (null? test) #t `(if (assert-true ,test-name ,(car test)) (assert-check-true ,test-name ,@(cdr test)) (begin (display "test failed ") (print (quote ,(car test))))))))
書いてみた。