Added getmodulename() public interface.

Include/moduleobject.h

@@ -7,3 +7,4 @@ extern typeobject Moduletype;
 extern object *newmoduleobject PROTO((char *));
 extern object *getmoduledict PROTO((object *));
 extern int setmoduledict PROTO((object *, object *));
+extern char *getmodulename PROTO((object *));

Objects/moduleobject.c

@@ -62,6 +62,17 @@ setmoduledict(m, v)
 	return 0;
 }
 
+char *
+getmodulename(m)
+	object *m;
+{
+	if (!is_moduleobject(m)) {
+		err_badarg();
+		return NULL;
+	}
+	return getstringvalue(((moduleobject *)m) -> md_name);
+}
+
 /* Methods */
 
 static void