suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Adding error message with undefined reference

Browse Source 
svn: r6508

original commit: 597122b8b5c00f1d9f266d7d1c486d3fe63b0849
This commit is contained in:
Jay McCarthy 2007-06-06 21:52:12 +00:00
parent 365cd321fa
commit c3f8f90b4b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scribble/html-render.ss
View File

@ -157,10 +157,11 @@
,@(if (null? (element-content e)) ,@(if (null? (element-content e))
(render-content (cadr dest) part ht) (render-content (cadr dest) part ht)
(render-content (element-content e) part ht)))) (render-content (element-content e) part ht))))
`((font ((class "badlink")) (begin (fprintf (current-error-port) "Undefined link: ~s~n" (link-element-tag e)) ; XXX Add source info
,@(if (null? (element-content e)) `((font ((class "badlink"))
`(,(format "~s" (link-element-tag e))) ,@(if (null? (element-content e))
(render-plain-element e part ht)))))))] `(,(format "~s" (link-element-tag e)))
(render-plain-element e part ht))))))))]
[else (render-plain-element e part ht)])) [else (render-plain-element e part ht)]))
(define/private (render-plain-element e part ht) (define/private (render-plain-element e part ht)