(define-syntax with-fixture
  (syntax-rules ()
    ((_ fixture-name code more-code ...)
     (fixture-name (lambda () code more-code ...)))))

(define (my-fixture body)
   (print "Before")
   (body)
   (print "After"))

(with-fixture my-fixture
  (print "I do something"))