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

fixed bug

Browse Source 
svn: r6984
This commit is contained in:
Robby Findler 2007-07-30 12:18:34 +00:00
parent 9ee86541b6
commit 7035d6f23b
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/drscheme/private/drscheme-normal.ss
View File

@ -152,7 +152,7 @@
(with-handlers ([exn:fail? (lambda (x) (with-handlers ([exn:fail? (lambda (x)
(printf "~s\n" (exn-message x)) (printf "~s\n" (exn-message x))
#f)]) #f)])
(let ([b (icons-bitmap bitmap% "recycle.gif")]) (let ([b (icons-bitmap "recycle.gif")])
(cond (cond
[(send b ok?) [(send b ok?)
(let ([gbdc (make-object bitmap-dc% b)] (let ([gbdc (make-object bitmap-dc% b)]