allow .m suffix for Objective C

svn: r1247
This commit is contained in:
Matthew Flatt 2005-11-07 20:07:34 +00:00
parent 61986e146f
commit 6cb9c6da0c

View File

@ -67,7 +67,7 @@
(mk 'extract-base-filename/ss
#"[sS][sS]|[sS][cC][mM]" "Scheme" ".ss or .scm")
(mk 'extract-base-filename/c
#"[cC]|[cC][cC]|[cC][xX][xX]|[cC][pP][pP]|[cC][+][+]" "C" ".c, .cc, .cxx, .cpp, or .c++")
#"[cC]|[cC][cC]|[cC][xX][xX]|[cC][pP][pP]|[cC][+][+]|[mM]" "C" ".c, .cc, .cxx, .cpp, .c++, or .m")
(mk 'extract-base-filename/kp
#"[kK][pP]" "constant pool" ".kp")
(mk 'extract-base-filename/o