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

world.ss nw:rectangle mode and color consume strings now

Browse Source 
svn: r2192
This commit is contained in:
Matthias Felleisen 2006-02-10 22:16:06 +00:00
parent c5a6d3d046
commit 1096009ed8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/htdp/world.ss
View File

@ -58,10 +58,13 @@
;; Symbol Any String -> Void ;; Symbol Any String -> Void
(define (check-color tag width rank) (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) (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) (define (nw:rectangle width height mode color)
(check-pos 'rectangle width "first") (check-pos 'rectangle width "first")