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

A bunch of fprintf' -> eprintf' conversions (and a few related things).

Browse Source 
original commit: 17090fca4f19298f01d03fea419edb20f315d040
This commit is contained in:
Eli Barzilay 2012-05-06 12:06:00 -04:00
parent dcb28604ca
commit 36eea932a8
4 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/core.rkt
View File

@ -17,8 +17,7 @@
(let ([ht (collect-info-ht ci)])
(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"
(eprintf "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
key old-val val))
(hash-set! ht key val))))

3
collects/scribble/html-render.rkt
View File

@ -1129,8 +1129,7 @@
(render-content (element-content e) part ri))))
(begin
(when #f
(fprintf (current-error-port)
"Undefined link: ~s\n"
(eprintf "Undefined link: ~s\n"
(tag-key (link-element-tag e) ri)))
`((font ([class "badlink"])
,@(if (empty-content? (element-content e))

3
collects/scribble/latex-render.rkt
View File

@ -270,8 +270,7 @@
(if dest
(if (list? number)
(format-number number null)
(begin (fprintf (current-error-port)
"Internal tag error: ~s -> ~s\n"
(begin (eprintf "Internal tag error: ~s -> ~s\n"
(link-element-tag e)
dest)
'("!!!")))

3
collects/scribble/private/manual-bind.rkt
View File

@ -142,8 +142,7 @@
;; Call raise-syntax-error to capture error message:
(with-handlers ([exn:fail:syntax?
(lambda (exn)
(fprintf (current-error-port)
"~a\n" (exn-message exn)))])
(eprintf "~a\n" (exn-message exn)))])
(raise-syntax-error
'WARNING
"no declared exporting libraries for definition" id)))