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

fixed PR 8870

Browse Source 
svn: r7096
This commit is contained in:
Robby Findler 2007-08-14 05:06:08 +00:00
parent 91eb15f72a
commit 1e648f350f
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/private/gui.ss
View File

@ -178,7 +178,7 @@
url] url]
[else #f])] [else #f])]
[(preferences:get 'drscheme:help-desk:separate-browser) [(preferences:get 'drscheme:help-desk:separate-browser)
(send-url url) (send-url (url->string url))
#f] #f]
[else url])] [else url])]
[else url])) [else url]))

3
collects/net/sendurl.ss
View File

@ -45,6 +45,9 @@
; send-url : str [bool] -> void ; send-url : str [bool] -> void
(define/kw (send-url url-str (define/kw (send-url url-str
#:optional [separate-window? separate-by-default?]) #:optional [separate-window? separate-by-default?])
(define stupid-internal-define-syntax1
(unless (string? url-str)
(error 'send-url "expected a string, got ~e" url-str)))
(define external (external-browser)) (define external (external-browser))
(define stype (force systype)) (define stype (force systype))
(define preferred '|? ? ?|) (define preferred '|? ? ?|)