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

fixed place-image's contracts

Browse Source 
svn: r4727
This commit is contained in:
Matthias Felleisen 2006-11-01 04:10:01 +00:00
parent fb8ccb8f05
commit fd5aeff0a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/htdp/world.ss
View File

@ -89,8 +89,8 @@
(define (place-image image x y scene) (define (place-image image x y scene)
(check-image 'place-image image "first") (check-image 'place-image image "first")
(check-arg 'place-image (and (number? x) (real? x)) 'number "second" x) (check-arg 'place-image (and (number? x) (integer? x)) 'integer "second" x)
(check-arg 'place-image (and (number? y) (real? x)) 'number "third" y) (check-arg 'place-image (and (number? y) (integer? x)) 'integer "third" y)
(check-image 'place-image scene "fourth" "scene") (check-image 'place-image scene "fourth" "scene")
(let () (let ()
(define sw (image-width scene)) (define sw (image-width scene))