From 10af6b4da42c732d5e3dcd9e645611df82f32f93 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 17 Nov 2008 17:36:35 +0000
Subject: [PATCH] slightly better duplicate-key error reporting from Scribble

svn: r12478

original commit: 2cea4696f5c485e430bab544986be1a3fcfa38d0
---
 collects/scribble/latex-render.ss |  1 +
 collects/scribble/struct.ss       | 11 ++++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 7f772ff4..5c88ec23 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -374,6 +374,7 @@
                   (if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)]
                  [(#\~) "$\\sim$"]
                  [(#\{ #\} #\# #\% #\& #\$) (format "\\~a" c)]
+                 [(#\uA0) "~"]
                  [(#\uDF) "{\\ss}"]
                  [(#\u039A) "K"] ; kappa
                  [(#\u0391) "A"] ; alpha
diff --git a/collects/scribble/struct.ss b/collects/scribble/struct.ss
index 8dc62029..f1cefbd1 100644
--- a/collects/scribble/struct.ss
+++ b/collects/scribble/struct.ss
@@ -14,11 +14,12 @@
 
 (define (collect-put! ci key val)
   (let ([ht (collect-info-ht ci)])
-    (when (hash-ref ht key #f)
-      (fprintf (current-error-port)
-               "WARNING: collected information for key multiple times: ~e\n"
-               key))
-    (hash-set! ht key val)))
+    (let ([old-val (hash-ref ht key #f)])
+      (when old-val
+        (fprintf (current-error-port)
+                 "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
+                 key old-val val))
+    (hash-set! ht key val))))
 
 (define (resolve-get/where part ri key)
   (let ([key (tag-key key ri)])