(module bug ()

(import chicken scheme)
(use matchable)

(match 'some-form
  ((or ('x a) ('y b))
   'a-macro)
  (else #f))

)