fix chopAlts

fix for ucsd-progsys/liquidhaskell#87

When chopping (xly) with the separator (l, r) and r does not exist in y,
(in the code `c' = r, s0 = x, s1 = ly`)
x (in the code `s0`) was lost