(use environments)

(define widget-eval-env (make-parameter (environment-copy (interaction-environment) #t)))

(define (render sxml bindings contents)
  ;(eval `(let ((title "hello") (++ string-append)) ,sxml))
  (let ((env (environment-copy (widget-eval-env))))
    (environment-set! env 'contents contents)
    #f))

(render '() 'hello 'hello)