gistfile1.txt

#lang racket
(require (for-syntax syntax/parse
                     racket/syntax
                     syntax/location))

(define-syntax (M stx)
  (syntax-parse stx
    [(_ body ...)
     #:with racket/base (format-id stx "racket/base")
     #`(module* foo racket/base
         body ...)]))

(define-syntax (N stx)
  (syntax-parse stx
    [(_)
     #'object%]))

(provide N)
(M (N))