From 6cb9c6da0c53fed43d6acc0cffa5693410ec3fc2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 7 Nov 2005 20:07:34 +0000 Subject: [PATCH] allow .m suffix for Objective C svn: r1247 --- collects/dynext/file-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/dynext/file-unit.ss b/collects/dynext/file-unit.ss index a9926803d9..fa6c009779 100644 --- a/collects/dynext/file-unit.ss +++ b/collects/dynext/file-unit.ss @@ -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