suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix more problems with a generated doc submodule

Browse Source 
One problem involved context that should not be included in
a generated submodule, while another one was an issue with
the previous repair to the shift to label phase.
This commit is contained in:
Matthew Flatt 2015-03-02 09:21:07 -07:00
parent b1d380d4b5
commit 6d440f5a6b
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scribble-lib/scribble/extract.rkt
View File

@ -14,7 +14,7 @@
[e #'(e)])
srcdoc)
get-docs)
(datum->syntax stx 'get-docs))]
#'get-docs)]
[(wrap ...) wraps])
#'(begin
(define-syntax (docs stx)

14
scribble-lib/scribble/lp/lang/common.rkt
View File

@ -92,10 +92,16 @@
;; The `doc` submodule allows a `scribble/lp` module
;; to be provided to `scribble`:
#,@(if submod?
#`((module doc scribble/doclang2
(require scribble/manual
(only-in scribble/private/lp chunk CHUNK))
#,(strip-context #'(begin body0 . body))))
(list
(let ([submod
(strip-context
#`(module doc scribble/doclang2
(require scribble/manual
(only-in scribble/private/lp chunk CHUNK))
(begin body0 . body)))])
(syntax-case submod ()
[(_ . rest)
(datum->syntax submod (cons #'module #'rest))])))
'())))]))]))
(define-syntax module-begin/plain (make-module-begin #f))

5
scribble-lib/scribble/srcdoc.rkt
View File

@ -31,7 +31,10 @@
(syntax-local-lift-module-end-declaration
#`(begin-for-syntax (add-relative-requires! (#%variable-reference)
(quote-syntax #,specs)))))
(add-requires! (syntax-local-introduce specs)))
(with-syntax ([(spec ...) (syntax-local-introduce specs)])
;; Using `combine-in` protects `spec` against
;; matching `(op arg ...)` in `doc-submodule`:
(add-requires! #'((combine-in spec) ...))))
(define (add-relative-requires! varref specs)
(define mpi (variable-reference->module-path-index varref))