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


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

(with-fixture (my-fixture value-from-fixture)
  (printf "I do something with ~A~%" value-from-fixture))