git.oblomov.eu Git - git/blob - t/t4018/scheme-define-syntax

   1 (define-syntax define-test-suite RIGHT
   2   (syntax-rules ()
   3     ((_ suite-name (name test) ChangeMe ...)
   4      (define suite-name
   5        (let ((tests
   6               `((name . ,test) ...)))
   7          (lambda ()
   8            (run-suite 'suite-name tests)))))))