#lang scheme/base

(require scheme/include (for-syntax scheme/base)
          (only-in scribble/private/lp chunk CHUNK)
          scribble/manual)

(provide lp-include)

(define-syntax (module stx)
  (syntax-case stx (#%module-begin)
    [(module name base (#%module-begin body ...))
     #'(begin body ...)]
    [(module name base body ...)
     (raise-syntax-error #f "missing #%module-begin" stx)]))

(define-syntax (lp-include stx)
  (syntax-case stx ()
    [(_ name)
     (with-syntax ([there (datum->syntax stx 'there)])
       #'(include-at/relative-to here there name))]))