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

fixed a few v4.0 isms

Browse Source 
svn: r10565
This commit is contained in:
Robby Findler 2008-07-02 20:31:40 +00:00
parent ed8dcade51
commit 170788f332
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/browser/private/html.ss
View File

@ -224,7 +224,7 @@
get-pure-port get-pure-port
(lambda (ip) (lambda (ip)
(copy-port ip op))))) (copy-port ip op)))))
'truncate) #:exists 'truncate)
(pop-status) (pop-status)
(let ([bitmap (make-object bitmap% tmp-filename)]) (let ([bitmap (make-object bitmap% tmp-filename)])
(with-handlers ([exn:fail? (with-handlers ([exn:fail?

2
collects/browser/private/hyper.ss
View File

@ -1144,7 +1144,7 @@ A test case:
(show #t) (show #t)
(send (send (get-hyper-panel) get-canvas) goto-url start-url #f))]) (send (send (get-hyper-panel) get-canvas) goto-url start-url #f))])
(lambda (%) (lambda (%)
(hyper-no-show-frame-mixin (m %))))) (m (hyper-no-show-frame-mixin %)))))
(define hyper-frame% (hyper-frame-mixin (frame:status-line-mixin frame:basic%))) (define hyper-frame% (hyper-frame-mixin (frame:status-line-mixin frame:basic%)))
(define hyper-no-show-frame% (hyper-no-show-frame-mixin (frame:status-line-mixin frame:basic%))) (define hyper-no-show-frame% (hyper-no-show-frame-mixin (frame:status-line-mixin frame:basic%)))