whalesong/examples/image-program.rkt
2011-07-08 13:58:07 -04:00

10 lines
175 B
Racket

#lang planet dyoo/whalesong
(require (planet dyoo/whalesong/image))
(is-color? "red")
(is-color? "blue")
(is-color? 42)
(is-color? (make-color 3 4 5 0))
(is-color? "color")