makes the default name selection thing use .ss instead of .scm

svn: r11195
This commit is contained in:
Robby Findler 2008-08-12 00:05:40 +00:00
parent 178c30e6e4
commit 717895e087

View File

@ -566,7 +566,7 @@
[filename-end (skip-to-whitespace filename-start)])
(and (not (= filename-start end-module))
(string-append (get-text filename-start filename-end)
".scm")))))))
".ss")))))))
(define/private (matches start string)