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

only set the extension to .rkt if it looks like it isn't set to anything useful already

Browse Source
This commit is contained in:
Robby Findler 2015-04-19 07:22:17 -05:00
parent cb651731d0
commit 42f50a7c08
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gui-lib/framework/private/racket.rkt
View File

@ -1338,12 +1338,12 @@
(values lexeme type paren start end backup-delta new-mode)])) (values lexeme type paren start end backup-delta new-mode)]))
(define/override (put-file text sup directory default-name) (define/override (put-file text sup directory default-name)
(parameterize ([finder:default-extension "rkt"] ;; don't call the surrogate's super, since it sets the default extension
#; ; no need for the following, since it's the default (cond
[finder:default-filters '(["Racket Sources" "*.rkt;*.scrbl;*.ss;*.scm"] [(equal? (finder:default-extension) "")
["Any" "*.*"])]) (parameterize ([finder:default-extension "rkt"])
;; don't call the surrogate's super, since it sets the default extension (sup directory default-name))]
(sup directory default-name))) [else (sup directory default-name)]))
(super-new (get-token (lambda (in offset mode) (racket-lexer-wrapper in offset mode))) (super-new (get-token (lambda (in offset mode) (racket-lexer-wrapper in offset mode)))
(token-sym->style short-sym->style-name) (token-sym->style short-sym->style-name)