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

commit c3f8f90b4b600ce89f51445ef9b051445d746b3c
parent 365cd321fa2688ca1b3ca42f2810809872e37920
Author: Jay McCarthy <jay@racket-lang.org>
Date:   Wed,  6 Jun 2007 21:52:12 +0000

Adding error message with undefined reference

svn: r6508

original commit: 597122b8b5c00f1d9f266d7d1c486d3fe63b0849

Diffstat:
M
collects/scribble/html-render.ss
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -157,10 +157,11 @@
                        ,@(if (null? (element-content e))
                              (render-content (cadr dest) part ht)
                              (render-content (element-content e) part ht))))
-                  `((font ((class "badlink")) 
-                          ,@(if (null? (element-content e))
-                                `(,(format "~s" (link-element-tag e)))
-                                (render-plain-element e part ht)))))))]
+                  (begin (fprintf (current-error-port) "Undefined link: ~s~n" (link-element-tag e)) ; XXX Add source info
+                         `((font ((class "badlink")) 
+                                 ,@(if (null? (element-content e))
+                                       `(,(format "~s" (link-element-tag e)))
+                                       (render-plain-element e part ht))))))))]
          [else (render-plain-element e part ht)]))
 
       (define/private (render-plain-element e part ht)