pub fn set_current_program<OP, R>(
    p: &Arc<impl DebugContext + 'static>,
    op: OP
) -> R
where OP: FnOnce() -> R,