~ chicken-core (chicken-5) /tests/syntax-tests-2.scm

1;;;; syntax-tests-2.scm - tests using extended syntax at runtime
2
3(eval '(define-record-type x (make x) x? (x get-x)))
4(assert (eq? 'yes (get-x (make 'yes))))