1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#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))]))
|
