Implement `dynamic-wind'