bug#9567: curious match bug (?)

[Ludovic Courtès]

Could it be a feature?

  (let ((pat '('a _ ...)))
    (match '(a b c) (pat #t)))
  => #t

Ludo'.