diff --git a/scribble-lib/scribble/private/lp.rkt b/scribble-lib/scribble/private/lp.rkt index 3416ce08..1694e8a1 100644 --- a/scribble-lib/scribble/private/lp.rkt +++ b/scribble-lib/scribble/private/lp.rkt @@ -22,7 +22,7 @@ (identifier? #'name) (let* ([n (get-chunk-number (syntax-local-introduce #'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 (inc-chunk-number (syntax-local-introduce #'name))) @@ -61,9 +61,9 @@ (make-splice (list (make-toc-element #f - (list (elemtag '(chunk tag) + (list (elemtag '(prefixable tag) (bold (italic (racket name)) " ::="))) - (list (smaller (elemref '(chunk tag) #:underline? #f + (list (smaller (elemref '(prefixable tag) #:underline? #f str rest (... ...))))) (racketblock expr (... ...)))))))]))) @@ -75,9 +75,9 @@ (syntax-case stx () [(_ 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))]) - #'(elemref '(chunk tag) #:underline? #f str))])) + #'(elemref '(prefixable tag) #:underline? #f str))])) (provide (all-from-out scheme/base