(xdef 'protect (lambda (during after)
                  (dynamic-wind (lambda () #t) during after)))

From ac.scm ©