gistfile1.txt

#lang racket/load

(module A racket
  (require syntax/parse/define)
  (provide define-foo)
  (define-syntax-parser define-foo
    [(_ name body ...)
     #:with this-syntax (datum->syntax #'name 'this-syntax)
     #'(begin
         (define-syntax foo2
           (syntax-parser
             [(_ n)
              #:do [(define this-syntax #'n)]
              body ...]))
         (define-syntax name
           (syntax-parser
             [(_) #'(foo2 name)])))]))

(module B racket
  (require 'A syntax/parse/define)
  (provide (all-defined-out))
  (define-syntax-parser define/leif
    [(_)
     #:with leif (datum->syntax this-syntax 'leif)
     #'(define leif 42)])
  (define-foo blue
    #:with leif (datum->syntax this-syntax 'leif)
    #'leif))

(module C racket
  (require 'B)
  (define/leif)
  (blue))

(require 'C)