(import test) (import define-macro) (test-group "anwser of the universe" (define-macro (answer x) `(define ,x 42)) (answer a) (test-assert (= a 42))) (test-group "test-gensym" (define a 42) (define-macro (mac) (let ((a (gensym))) (define ,a 0))) (test-assert (= a 42)))
