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

.

Browse Source 
original commit: f24911554ea76b4221eb0aab49a2c9a084465c7c
This commit is contained in:
Matthew Flatt 2002-03-13 22:53:38 +00:00
parent ae621ddd83
commit 426582117c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/net/sendurl.ss
View File

@ -6,9 +6,12 @@
(provide send-url) (provide send-url)
(define separate-by-default?
(get-preference 'new-browser-for-urls (lambda () #t)))
; send-url : str -> void ; send-url : str -> void
(define send-url (define send-url
(opt-lambda (str [separate-window? #t]) (opt-lambda (str [separate-window? separate-by-default?])
(parameterize ([current-input-port null-input] (parameterize ([current-input-port null-input]
[current-error-port null-output] ; comment out this line to see error messages [current-error-port null-output] ; comment out this line to see error messages
[current-output-port null-output]) [current-output-port null-output])