(xdef 'protect (lambda (during after) (dynamic-wind (lambda () #t) during after)))
From ac.scm ©
ac.scm