From 1096009ed86166e608f409dba624ca498e5b5200 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 10 Feb 2006 22:16:06 +0000 Subject: [PATCH] world.ss nw:rectangle mode and color consume strings now svn: r2192 --- collects/htdp/world.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/htdp/world.ss b/collects/htdp/world.ss index b41ddcfecf..cc66e40da4 100644 --- a/collects/htdp/world.ss +++ b/collects/htdp/world.ss @@ -58,10 +58,13 @@ ;; Symbol Any String -> Void (define (check-color tag width rank) - (check-arg tag (symbol? width) "color symbol" rank width)) + (check-arg tag (or (symbol? width) (string? width)) "color symbol or string" rank width)) (define (check-mode tag s rank) - (check-arg tag (or (eq? s 'solid) (eq? s 'outline)) "'solid or 'outline" rank s)) + (check-arg tag (or (eq? s 'solid) + (eq? s 'outline) + (string=? "solid" s) + (string=? "outline" s)) "mode (solid or outline)" rank s)) (define (nw:rectangle width height mode color) (check-pos 'rectangle width "first")