(module w
 (result)
 (import scheme chicken)

 (define h "hello")
 (define result (eval `(lambda () ,h) (module-environment 'scheme)))
)

(result) => "hello"

Should be unbound variable h