From dcf801352624f3495cadade05dc4a3d6cf7359d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Fri, 17 Jun 2016 19:59:40 +0200
Subject: [PATCH] Fixes scribble bug #25

---
 scribble-lib/scribble/private/lp.rkt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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