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

Minor improvement, and recognize a ".plt" suffix in any case.

Browse Source
This commit is contained in:
Eli Barzilay 2012-05-10 03:13:55 -04:00
parent 9401a537e0
commit 48b0b50647
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/main.rkt
View File

@ -409,14 +409,12 @@
(handler:insert-format-handler (handler:insert-format-handler
"PLT Files" "PLT Files"
(λ (filename) (λ (filename)
(let ([ext (filename-extension filename)]) (and (regexp-match? #rx"^(?i:plt)$"
(and ext (or (filename-extension filename) #""))
(or (bytes=? #"PLT" ext)
(bytes=? #"plt" ext))
(gui-utils:get-choice (gui-utils:get-choice
(format (string-constant install-plt-file) filename) (format (string-constant install-plt-file) filename)
(string-constant install-plt-file/yes) (string-constant install-plt-file/yes)
(string-constant install-plt-file/no))))) (string-constant install-plt-file/no))))
(λ (filename) (λ (filename)
(run-installer filename) (run-installer filename)
#f)) #f))