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

actually use unsyntax-id in racketmod0

Browse Source
This commit is contained in:
Stephen Chang 2016-10-12 13:15:16 -04:00
parent 724b522f3b
commit 73907e1d3f
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
scribble-lib/scribble/private/manual-scheme.rkt
View File

@ -92,16 +92,17 @@
[(_ #:file filename #:escape unsyntax-id lang rest ...) [(_ #:file filename #:escape unsyntax-id lang rest ...)
(with-syntax ([modtag (datum->syntax (with-syntax ([modtag (datum->syntax
#'here #'here
`(unsyntax (make-element (list #'unsyntax-id
#f `(make-element
(list (hash-lang) #f
spacer (list (hash-lang)
,(if (identifier? #'lang) spacer
`(as-modname-link ,(if (identifier? #'lang)
',#'lang `(as-modname-link
(to-element ',#'lang) ',#'lang
#f) (to-element ',#'lang)
#'(racket lang))))) #f)
#'(racket lang)))))
#'lang)]) #'lang)])
(if (syntax-e #'filename) (if (syntax-e #'filename)
(quasisyntax/loc stx (quasisyntax/loc stx