Better Mechanism For Token Messages

[brodieG]

How do we attach the message "be TRUE or FALSE" to:

logical(1L) && !is.na(.)

Right now we can't do:

identity(logical(1L) && !is.na(.))

because from that point forward the expression stops making sense, and make_val_token