suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

put a few parens back

Browse Source
This commit is contained in:
AlexKnauth 2015-08-21 14:09:37 -04:00
parent 4c01d8cd8c
commit e4a73321d8
1 changed files with 13 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lens/doc-util/scribble-include-no-subsection.rkt
View File

@ -15,20 +15,16 @@ require syntax/parse/define
;; - has exactly one (list 'part (generated-tag)) tag ;; - has exactly one (list 'part (generated-tag)) tag
;; - has no subsections ;; - has no subsections
;; - has no `to-collect` content ;; - has no `to-collect` content
define-syntax scribble-include/no-subsection (define-syntax scribble-include/no-subsection
syntax-parser (syntax-parser
(~and stx (scribble-include/no-subsection mod)) [(~and stx (scribble-include/no-subsection mod))
#:with doc-from-mod #:with doc-from-mod (datum->syntax #'mod 'doc)
datum->syntax #'mod 'doc (unless (module-path? (syntax->datum #'mod))
unless (module-path? (syntax->datum #'mod)) (raise-syntax-error #f
raise-syntax-error #f
"not a module path" "not a module path"
#'stx #'stx
#'mod #'mod))
syntax #'(begin
begin (require (only-in mod [doc-from-mod doc]))
require (only-in mod [doc-from-mod doc]) (match-define (part #f (list (list 'part (generated-tag))) #f style '() blocks '()) doc)
match-define (nested-flow style blocks))]))
part #f (list (list 'part (generated-tag))) #f style '() blocks '()
doc
nested-flow style blocks