From c3f8f90b4b600ce89f51445ef9b051445d746b3c Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 6 Jun 2007 21:52:12 +0000 Subject: [PATCH] Adding error message with undefined reference svn: r6508 original commit: 597122b8b5c00f1d9f266d7d1c486d3fe63b0849 --- 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 index 79abaefc..57f9caa5 100644 --- 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)