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

problem with 0-sized images fixed

Browse Source 
svn: r14084
This commit is contained in:
Matthias Felleisen 2009-03-13 02:04:41 +00:00
parent 0a24b8945d
commit 533c8dfd8b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/private/check-aux.ss
View File

@ -135,7 +135,7 @@
;; Symbol Any String -> Void
(define (check-pos t c r)
(check-arg
t (and (number? c) (> (number->integer c) 0)) "positive integer" r c))
t (and (number? c) (>= (number->integer c) 0)) "positive integer" r c))
;; Symbol Any String String *-> Void
(define (check-image tag i rank . other-message)