From 809b9dfbe7c674e76bd2b841562ba760117bcd61 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sat, 24 Oct 2009 21:13:23 +0000 Subject: [PATCH] small fix to in image svn: r16425 --- collects/htdp/image.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/htdp/image.ss b/collects/htdp/image.ss index f8129a8c8e..36b3a6f71a 100644 --- a/collects/htdp/image.ss +++ b/collects/htdp/image.ss @@ -109,7 +109,7 @@ plt/collects/tests/mzscheme/htdp-image.ss (define (check-sizes who w h) (unless (and (< 0 w 10000) (< 0 h 10000)) - (error (format "cannot make ~a x ~a image" w h)))) + (error who (format "cannot make ~a x ~a image" w h)))) (define (mode? x) (member x '(solid "solid" outline "outline")))