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 ...)
(with-syntax ([modtag (datum->syntax
#'here
`(unsyntax (make-element
#f
(list (hash-lang)
spacer
,(if (identifier? #'lang)
`(as-modname-link
',#'lang
(to-element ',#'lang)
#f)
#'(racket lang)))))
(list #'unsyntax-id
`(make-element
#f
(list (hash-lang)
spacer
,(if (identifier? #'lang)
`(as-modname-link
',#'lang
(to-element ',#'lang)
#f)
#'(racket lang)))))
#'lang)])
(if (syntax-e #'filename)
(quasisyntax/loc stx