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

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

Browse Source
This commit is contained in:
Robby Findler 2010-04-16 16:15:31 -04:00
parent 1c114c3e94
commit a04a5b32d1
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/teachpack/2htdp/scribblings/image-gen.ss
View File

@ -101,15 +101,14 @@
(for-each handle-image expressions) (for-each handle-image expressions)
(cond (cond
[(null? mapping) [(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 [else
(printf "\n")]) (printf "\n")
(call-with-output-file "image-toc.ss"
(call-with-output-file "image-toc.ss" (λ (port)
(λ (port) (fprintf port "#lang scheme/base\n(provide mapping)\n")
(fprintf port "#lang scheme/base\n(provide mapping)\n") (fprintf port ";; this file is generated by image-gen.ss -- do not edit\n;; note that the file that creates this file depends on this file\n;; it is always safe to simply define (and provide) mapping as the empty list\n\n")
(fprintf port ";; this file is generated by image-gen.ss -- do not edit\n;; note that the file that creates this file depends on this file\n;; it is always safe to simply define (and provide) mapping as the empty list\n\n") (pretty-print
(pretty-print `(define mapping (list ,@mapping))
`(define mapping (list ,@mapping)) port))
port)) #:exists 'truncate)])
#:exists 'truncate)