makes the default name selection thing use .ss instead of .scm
svn: r11195
This commit is contained in:
parent
178c30e6e4
commit
717895e087
|
@ -566,7 +566,7 @@
|
||||||
[filename-end (skip-to-whitespace filename-start)])
|
[filename-end (skip-to-whitespace filename-start)])
|
||||||
(and (not (= filename-start end-module))
|
(and (not (= filename-start end-module))
|
||||||
(string-append (get-text filename-start filename-end)
|
(string-append (get-text filename-start filename-end)
|
||||||
".scm")))))))
|
".ss")))))))
|
||||||
|
|
||||||
|
|
||||||
(define/private (matches start string)
|
(define/private (matches start string)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user