From 42c11db0ff9aa1643999953b9647619af1dada24 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 10 May 2007 22:03:05 +0000 Subject: [PATCH] minor edits svn: r6195 original commit: 234a6178355a024a1e9ea1755640cc9d21fc0bd9 --- 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 fd8e0e3366..f8e435f53f 100644 --- a/collects/net/sendurl.ss +++ b/collects/net/sendurl.ss @@ -12,11 +12,11 @@ (define unix-browser-list '(firefox galeon opera netscape mozilla dillo)) - ; : any -> bool + ;; : any -> bool (define (custom-browser? x) (and (pair? x) (string? (car x)) (string? (cdr x)))) - ; : any -> bool + ;; : any -> bool (define (browser-preference? x) (or (not x) (eq? 'plt x) (memq x unix-browser-list) (custom-browser? x) (procedure? x))) @@ -27,7 +27,7 @@ (lambda (x) (if (browser-preference? x) x - (error 'external-browser "~a is not a valid browser preference" x))))) + (error 'external-browser "~e is not a valid browser preference" x))))) ;; like (system-type), but return the real OS for OSX with XonX ;; (could do the same for Cygwin, but that it doesn't have shell-execute)