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

svn: r8448

Browse Source
This commit is contained in:
Eli Barzilay 2008-01-28 16:45:11 +00:00
parent 9a34a06070
commit 6d9b4a1ed6
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/net/sendurl.ss
View File

@ -26,11 +26,6 @@
(define (custom-browser? x)
(and (pair? x) (string? (car x)) (string? (cdr x))))
;; : any -> bool
(define (browser-preference? x)
(or (not x) (memq x unix-browser-list) (custom-browser? x)
(procedure? x)))
(define external-browser
(make-parameter
#f ; #f means "consult the preferences file"
@ -55,6 +50,10 @@
[(set! _ . xs) (error 'unix-browser-list "cannot be mutated")]
[_ (force existing-unix-browsers)]))
;; : any -> bool
(define (browser-preference? x)
(or (not x) (memq x unix-browser-list) (custom-browser? x) (procedure? x)))
;; like (system-type), but return the real OS for OSX with XonX
;; (could do the same for Cygwin, but it doesn't have shell-execute)
(define systype