(library (foo bar compat)
  (export message)
  (import (rnrs))

  (define message 'compat))