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

fixed PR 8870

Browse Source 
svn: r7096

original commit: 1e648f350f
This commit is contained in:
Robby Findler 2007-08-14 05:06:08 +00:00
parent 9b958bd56a
commit 8a091a5d77
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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 '|? ? ?|)