From 9107f0c35d54d93ace81926cb703a0f12c8526e0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 14 Mar 2004 19:27:23 +0000 Subject: [PATCH] . original commit: e8b1a97158ca6a6720423c96888191da08c51303 --- collects/net/sendurl.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.ss index d8e8531e3e..66ba9e4b12 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -35,13 +35,13 @@ (let loop ([l '("MSIE" "NAVG")]) (if (null? l) (error 'send-url "couldn't start Internet Explorer or Netscape") - (with-handlers ([not-break-exn? (lambda (x) (loop (cdr l)))]) + (with-handlers ([exn:fail? (lambda (x) (loop (cdr l)))]) (subprocess #f #f #f "by-id" (car l)) (let loop ([retries 2]) ;; <<< Yuck <<< (if (zero? retries) (error "enough already") ; caught above - (with-handlers ([not-break-exn? (lambda (x) - (loop (sub1 retries)))]) + (with-handlers ([exn:fail? (lambda (x) + (loop (sub1 retries)))]) (let ([t (thread (lambda () (send-event (car l) "GURL" "GURL" url-str)))]) (object-wait-multiple 1 t) ;; <<< Yuck (timeout) <<<