# [plt-scheme] inheriting dynamic extent

The dynamic extent of a procedure is the time when processing is
"inside" a procedure, but it doesn't include the dynamic extent of
procedures created during this time. For example:
((let ((x 1))
(dynamic-wind (lambda () (set! x 2))
(lambda () (lambda () x))
(lambda () (set! x 1)))))
; => 1
Or equivalently:
((let ((x 1))
(fluid-let ((x 2))
(lambda () x))))
; => 1
Is there some way to allow procedures to "inherit" dynamic extent?
(Or some trick to simulate this?) In other words, is there a way to
make something analogous to this example that returns 2 instead of 1?
--dougo at place.org