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 ([ht (collect-info-ht ci)])
(let ([old-val (hash-ref ht key #f)]) (let ([old-val (hash-ref ht key #f)])
(when old-val (when old-val
(fprintf (current-error-port) (eprintf "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
"WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
key old-val val)) key old-val val))
(hash-set! ht key 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)))) (render-content (element-content e) part ri))))
(begin (begin
(when #f (when #f
(fprintf (current-error-port) (eprintf "Undefined link: ~s\n"
"Undefined link: ~s\n"
(tag-key (link-element-tag e) ri))) (tag-key (link-element-tag e) ri)))
`((font ([class "badlink"]) `((font ([class "badlink"])
,@(if (empty-content? (element-content e)) ,@(if (empty-content? (element-content e))

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

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

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

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