Fixes scribble bug #25

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