remove unused field 'date' of record 'ModInfo'

Pm/PmFiles.icl

@@ -134,7 +134,6 @@ ModInfoAndNameTable =
 	, SimpleOption	"DclOpen"								(\a->a.info.defopen)		(\v a->{a & info.defopen=v})
 	, GroupedOption	"Icl"			EditWdOptionsTable		(\a->a.info.impeo)			(\v a->{a & info.impeo=v})
 	, SimpleOption	"IclOpen"								(\a->a.info.impopen)		(\v a->{a & info.impopen=v})
-	, SimpleOption	"LastModified"							(\a->a.info.date)			(\v a->{a & info.date=v})
 	, ListOption	"NeededObjFiles" ObjectFile ""			(\a->a.info.abcLinkInfo.linkObjFileNames)
 																(\v a->{a & info.abcLinkInfo.linkObjFileNames=v})
 	, ListOption	"NeededLibraries" Library   ""			(\a->a.info.abcLinkInfo.linkLibraryNames)
@@ -160,7 +159,6 @@ where
 					impeo	= {eo=DefaultEditOptions,pos_size=NoWindowPosAndSize},
 					defopen = False,
 					impopen = False,
-					date	= NoDate,
 					abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} }
 	DefaultEditOptions :: EditOptions;
 	DefaultEditOptions =

Pm/PmProject.icl

@@ -115,7 +115,6 @@ PR_NewProject main_module_file_name eo compilerOptions cgo ao prjpaths linkOptio
 						, compilerOptions		= compilerOptions
 						, defopen	= False
 						, impopen = True
-						, date	= NoDate
 						, abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}
 						}
 		, src		= True
@@ -194,7 +193,6 @@ where
 								impeo	= impeo,
 								defopen	= False,
 								impopen	= False,
-								date	= NoDate,
 								abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} },
 					src		= True,
 					abc		= True }
@@ -213,14 +211,8 @@ PR_ClearDependencies project=:{inflist=Nil}
 PR_ClearDependencies project=:{inflist=il=:(root :! rest)}
 	= {project & saved = False, inflist = root` :! Nil, built = False}
 where
-	root` =
-		{ InfListItem
-		| root
-		& info =
-			{ root.InfListItem.info
-			& date = NoDate
-			, abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}}}
-	
+	root` = {InfListItem | root & info.abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil}}
+
 PR_SetRoot :: !String !EditWdOptions !CompilerOptions !Project -> Project;
 PR_SetRoot root eo co project=:{inflist=Nil}
 	= project;
@@ -235,7 +227,6 @@ PR_SetRoot newroot eo compilerOptions project=:{prjpaths}
 											compilerOptions		= compilerOptions,
 											defopen	= False,	/* nonsense, we don't know this! */
 											impopen = True,
-											date	= NoDate,
 											abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} },
 								src		= True,
 								abc		= True
@@ -374,7 +365,7 @@ PR_SetPaths def defs new project=:{Project | built,inflist=infl=:((root=:{InfLis
 		SetDcl_and_Icl_and_ABCModified :: !InfListItem -> (!InfListItem,!Bool);
 		SetDcl_and_Icl_and_ABCModified itm=:{InfListItem | info=minfo=:{dir}}
 		| unchanged	= ({itm & src=False}, True);
-					= ({itm & info = {minfo & dir="", date=NoDate}, src=False},False);
+					= ({itm & info = {minfo & dir=""}, src=False},False);
 			where 
 				unchanged	= StringOccurs dir defs || StringOccurs dir prjpaths1;
 			
@@ -675,7 +666,6 @@ where
 		, impeo	= {eo=DefaultEditOptions,pos_size=NoWindowPosAndSize}
 		, defopen = False
 		, impopen = False
-		, date	= NoDate
 		, abcLinkInfo = {linkObjFileNames = Nil, linkLibraryNames = Nil} 
 		}
 	where

Pm/PmTypes.dcl

@@ -151,7 +151,6 @@ instance fromString Output
 	, impeo				:: !EditWdOptions		// implementation module edit options
 	, defopen 			:: !Bool				// definition module is open
 	, impopen 			:: !Bool				// implementation module is open
-	, date 				:: !DATE				// ???
 	, abcLinkInfo		:: !ABCLinkInfo			// found dependant libs and objs
 	}
 

Pm/PmTypes.icl

@@ -3,7 +3,7 @@ implementation module PmTypes
 // The types for the Project Manager
 
 import StdBool, StdInt
-import UtilStrictLists, UtilDate
+import UtilStrictLists
 from UtilNewlinesFile import :: NewlineConvention(..)
 import PmCompilerOptions
 from StdPathname import :: Pathname
@@ -111,7 +111,6 @@ where
 	, impeo				:: !EditWdOptions		// edit options imp module
 	, defopen 			:: !Bool				// dcl open?
 	, impopen			:: !Bool				// icl open?
-	, date				:: !DATE				// last scan date of file???
 	, abcLinkInfo		:: !ABCLinkInfo
 	}