fixed PR 8870

svn: r7096 original commit: 1e648f350f
2007-08-14 05:06:08 +00:00 · 2007-08-14 05:06:08 +00:00 · 8a091a5d77
commit 8a091a5d77
parent 9b958bd56a
1 changed files with 3 additions and 0 deletions
--- a/collects/net/sendurl.ss
+++ b/collects/net/sendurl.ss
@ -45,6 +45,9 @@
  ; send-url : str [bool] -> void
  (define/kw (send-url url-str
                       #: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 stype (force systype))
    (define preferred '|? ? ?|)