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

.

Browse Source 
original commit: c3b8a997fe5fecaebc5bdf66f3bcea8c89036be0
This commit is contained in:
Paul Graunke 2002-09-06 19:44:46 +00:00
parent f8aa46a859
commit d84fccb4f0
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

@ -16,7 +16,10 @@
(define external-browser (define external-browser
(make-parameter (make-parameter
(get-preference 'external-browser (lambda () #f)) (get-preference 'external-browser (lambda () #f))
browser-preference?)) (lambda (x)
(if (browser-preference? x)
x
(error 'external-browser "~a is not a valid browser preference" x)))))
; send-url : str [bool] -> void ; send-url : str [bool] -> void
(define send-url (define send-url