matcher for `when` statement matching types

[cpb]

sexp find '[child (when ___ [child (const _)] _)]'

Appears to return false positives as it is matching into the "block" after the when