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

scribble/srcdoc: adjust shift to label phase

Browse Source 
Use a technique that depends less on exactly what a shift to the
label phase means when additional bindings are introduced.
This commit is contained in:
Matthew Flatt 2015-02-25 21:03:27 -07:00
parent 4a52d3c57c
commit 5a752f5022
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,13 +64,26 @@
(values null null))))
(define-syntax (doc-submodule stx)
(define (shift-and-introduce s)
(syntax-local-introduce
(syntax-shift-phase-level s #f)))
(with-syntax ([((req ...) ...)
(map syntax-local-introduce (reverse requires))]
[(expr ...) (map syntax-local-introduce (reverse doc-exprs))]
(map (lambda (rs)
(map (lambda (r)
(syntax-case r ()
[(op arg ...)
(with-syntax ([(arg ...)
(map shift-and-introduce
(syntax->list #'(arg ...)))])
#'(op arg ...))]
[else
(shift-and-introduce r)]))
(syntax->list rs)))
(reverse requires))]
[(expr ...)
(map shift-and-introduce (reverse doc-exprs))]
[doc-body
(map (lambda (s) (syntax-local-introduce
(syntax-shift-phase-level s #f)))
(reverse doc-body))])
(map shift-and-introduce (reverse doc-body))])
;; This module will be required `for-template':
(if delayed?
;; delayed mode: return syntax objects to drop into context: