(define-syntax-rule (struct-match-copy (id . pattern) struct-expr fld-id ...)
  (match struct-expr
    [(id pattern) (struct-copy id struct-expr fld-id ...)]))