don't open url twice

svn: r17824
This commit is contained in:
Sam Tobin-Hochstadt 2010-01-25 20:00:32 +00:00
parent af2ef07d05
commit 8ccbe74e5e

View File

@ -40,7 +40,6 @@
(dynamic-require 'scribble/run #f)
(cond
[(equal? label "HTML")
(system (format "firefox ~a" (path-replace-suffix name suffix)))
(send-url/file (path-replace-suffix fn suffix))]
[else (system (format "open ~a" (path-replace-suffix name suffix)))]))
(message-box "Scribble" (get-output-string p) drs-frame))