From ca98f85c39bc439feb4d5239ee407c6df35f05a8 Mon Sep 17 00:00:00 2001 From: Stephen Bloch Date: Tue, 17 Dec 2013 14:53:05 -0500 Subject: [PATCH] =?UTF-8?q?Re-added=20error=20checks=20in=20the=20color=3D?= =?UTF-8?q?=3F=20function,=20so=20error=20message=20comes=20from=20the=20f?= =?UTF-8?q?unction=20you=20actually=20called,=20rather=20than=20an=20inter?= =?UTF-8?q?nal.?= --- .../picturing-programs/private/map-image.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/pkgs/picturing-programs/picturing-programs/private/map-image.rkt b/pkgs/picturing-programs/picturing-programs/private/map-image.rkt index 907842ebad..1486de4429 100644 --- a/pkgs/picturing-programs/picturing-programs/private/map-image.rkt +++ b/pkgs/picturing-programs/picturing-programs/private/map-image.rkt @@ -141,12 +141,12 @@ (define (color=? c1 c2) (let [[rc1 (colorize c1)] [rc2 (colorize c2)]] -; (unless (color? rc1) -; (error 'color=? -; (format "Expected a color or color name as first argument, but received ~v" c1))) -; (unless (color? rc2) -; (error 'color=? -; (format "Expected a color or color name as second argument, but received ~v" c2))) + (unless (color? rc1) + (error 'color=? + (format "Expected a color or color name as first argument, but received ~v" c1))) + (unless (color? rc2) + (error 'color=? + (format "Expected a color or color name as second argument, but received ~v" c2))) (and (= (color-alpha rc1) (color-alpha rc2)) ; Both alphas MUST be equal. (or (= (color-alpha rc1) 0) ; If both are transparent, ignore rgb. (and (= (color-red rc1) (color-red rc2))