From 170788f332c44d2a9d478879fd3a3a40d8eba4db Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 2 Jul 2008 20:31:40 +0000 Subject: [PATCH] fixed a few v4.0 isms svn: r10565 --- collects/browser/private/html.ss | 2 +- collects/browser/private/hyper.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/browser/private/html.ss b/collects/browser/private/html.ss index fbfb897be1..fd05d8b1c8 100644 --- a/collects/browser/private/html.ss +++ b/collects/browser/private/html.ss @@ -224,7 +224,7 @@ get-pure-port (lambda (ip) (copy-port ip op))))) - 'truncate) + #:exists 'truncate) (pop-status) (let ([bitmap (make-object bitmap% tmp-filename)]) (with-handlers ([exn:fail? diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.ss index ad26fd5506..2910dec8c2 100644 --- a/collects/browser/private/hyper.ss +++ b/collects/browser/private/hyper.ss @@ -1144,7 +1144,7 @@ A test case: (show #t) (send (send (get-hyper-panel) get-canvas) goto-url start-url #f))]) (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-no-show-frame% (hyper-no-show-frame-mixin (frame:status-line-mixin frame:basic%)))