From a04a5b32d1bb51cd017f4ec7e38d67d02ce7b6e5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 16 Apr 2010 16:15:31 -0400 Subject: [PATCH] changed a message so that it doesn't register as an error according to drdr --- .../teachpack/2htdp/scribblings/image-gen.ss | 21 +++++++++---------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/collects/teachpack/2htdp/scribblings/image-gen.ss b/collects/teachpack/2htdp/scribblings/image-gen.ss index 708b6c0ac4..2421d6c221 100644 --- a/collects/teachpack/2htdp/scribblings/image-gen.ss +++ b/collects/teachpack/2htdp/scribblings/image-gen.ss @@ -101,15 +101,14 @@ (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")]) - -(call-with-output-file "image-toc.ss" - (λ (port) - (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") - (pretty-print - `(define mapping (list ,@mapping)) - port)) - #:exists 'truncate) + (printf "\n") + (call-with-output-file "image-toc.ss" + (λ (port) + (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") + (pretty-print + `(define mapping (list ,@mapping)) + port)) + #:exists 'truncate)])