bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 10af6b4da42c732d5e3dcd9e645611df82f32f93
parent d975dc7f2dbd7803821a0955ad041bb9a13be501
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 17 Nov 2008 17:36:35 +0000

slightly better duplicate-key error reporting from Scribble

svn: r12478

original commit: 2cea4696f5c485e430bab544986be1a3fcfa38d0

Diffstat:
M
collects/scribble/latex-render.ss
 | 
1
+
M
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
@@ -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
@@ -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)])