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

Fixes scribble bug #25

Browse Source
This commit is contained in:
Georges Dupéron 2016-06-17 19:59:40 +02:00
parent c34a69c623
commit dcf8013526
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scribble-lib/scribble/private/lp.rkt
View File

@ -22,7 +22,7 @@
(identifier? #'name) (identifier? #'name)
(let* ([n (get-chunk-number (syntax-local-introduce #'name))] (let* ([n (get-chunk-number (syntax-local-introduce #'name))]
[str (symbol->string (syntax-e #'name))] [str (symbol->string (syntax-e #'name))]
[tag (format "~a:~a" str (or n 1))]) [tag (format "chunk:~a:~a" str (or n 1))])
(when n (when n
(inc-chunk-number (syntax-local-introduce #'name))) (inc-chunk-number (syntax-local-introduce #'name)))
@ -61,9 +61,9 @@
(make-splice (make-splice
(list (make-toc-element (list (make-toc-element
#f #f
(list (elemtag '(chunk tag) (list (elemtag '(prefixable tag)
(bold (italic (racket name)) " ::="))) (bold (italic (racket name)) " ::=")))
(list (smaller (elemref '(chunk tag) #:underline? #f (list (smaller (elemref '(prefixable tag) #:underline? #f
str str
rest (... ...))))) rest (... ...)))))
(racketblock expr (... ...)))))))]))) (racketblock expr (... ...)))))))])))
@ -75,9 +75,9 @@
(syntax-case stx () (syntax-case stx ()
[(_ id) [(_ id)
(identifier? #'id) (identifier? #'id)
(with-syntax ([tag (format "~a:1" (syntax-e #'id))] (with-syntax ([tag (format "chunk:~a:1" (syntax-e #'id))]
[str (format "~a" (syntax-e #'id))]) [str (format "~a" (syntax-e #'id))])
#'(elemref '(chunk tag) #:underline? #f str))])) #'(elemref '(prefixable tag) #:underline? #f str))]))
(provide (all-from-out scheme/base (provide (all-from-out scheme/base