Usage: (fix-case-test ast)
If the node is a :case-test, annotates in the atom shared by the binding and the local node with :case-test