I got this:

(let ((b #f))
  (match '(1 2) ;; <-- i want '(1) and '(1 2) to work
    ((or (a b) (a))
     (list a b))))

This works. But I don't like that I have to repeat `b` in the let above.