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

don't open url twice

Browse Source 
svn: r17824
This commit is contained in:
Sam Tobin-Hochstadt 2010-01-25 20:00:32 +00:00
parent af2ef07d05
commit 8ccbe74e5e
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scribble/tools/drscheme-buttons.ss
View File

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