Specifying underscore as a variable for the codo block makes codo error

[twixninja411]

For example, the following errors:

f alpha = [codo| ((x,_),g) => extract x - alpha*extract g|]

The following compiles just fine:

f alpha = [codo| ((x,dontcare),g) => extract x - alpha*extract g|]