#lang scheme/load

(module m scheme
  (require (for-syntax syntax/boundmap))
  (define-for-syntax table (make-free-identifier-mapping))
  (define-syntax x 1)
  (define-syntax x* (make-rename-transformer #'x))
  (begin-for-syntax
    (free-identifier-mapping-put! table #'x 'got-it))
  (define-syntax (get stx)
    (syntax-case stx ()
      [(_ i)        
       #`(quote #,(free-identifier-mapping-get table #'i))]))
  (provide (rename-out [x* x]) get))

(module n scheme
  (require 'm)
  (get x))

(require 'n)