changed a message so that it doesn't register as an error according to drdr

This commit is contained in:
Robby Findler 2010-04-16 16:15:31 -04:00
parent 1c114c3e94
commit a04a5b32d1

View File

@ -101,10 +101,9 @@
(for-each handle-image expressions)
(cond
[(null? mapping)
(error 'image-gen "didn't find any images; probably this means that you need to delete .zo files and try again")]
(printf "image-gen: didn't find any images; probably this means that you need to delete .zo files and try again\n")]
[else
(printf "\n")])
(printf "\n")
(call-with-output-file "image-toc.ss"
(λ (port)
(fprintf port "#lang scheme/base\n(provide mapping)\n")
@ -112,4 +111,4 @@
(pretty-print
`(define mapping (list ,@mapping))
port))
#:exists 'truncate)
#:exists 'truncate)])