From c12a991b6304361cfa957405af4e5de3b876bae8 Mon Sep 17 00:00:00 2001
From: clean
Date: Tue, 11 Jul 2000 09:51:51 +0000
Subject: Fixed call to changed front end interface

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@186 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/compile.icl | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'main')

diff --git a/main/compile.icl b/main/compile.icl
index 938ea8d..8b7ba93 100644
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -38,8 +38,7 @@ InitialCoclOptions =
 	,	outMode
 			=	FWriteText
 	,	searchPaths
-// RWS, voor Maarten +++			=	{sp_locations = [], sp_paths = []}
-				=	[]
+			=	{sp_locations = [], sp_paths = []}
 	}
 
 compile :: [{#Char}] *Files -> (!Bool, !*Files)
@@ -54,12 +53,10 @@ parseCommandLine [] options
 		prependModulePath options=:{pathName, searchPaths}
 			=	{	options
 				&	moduleName = baseName pathName
-// RWS, voor Maarten +++				,	searchPaths = {searchPaths & sp_paths = [directoryName pathName : searchPaths.sp_paths]}
-				,	searchPaths = [directoryName pathName : searchPaths]
+				,	searchPaths = {searchPaths & sp_paths = [directoryName pathName : searchPaths.sp_paths]}
 				}
 parseCommandLine ["-P", searchPathsString : args] options=:{searchPaths}
-// RWS, voor Maarten +++	=	parseCommandLine args {options & searchPaths = {searchPaths & sp_paths = splitPaths searchPathsString}}
-	=	parseCommandLine args {options & searchPaths = splitPaths searchPathsString}
+	=	parseCommandLine args {options & searchPaths = {searchPaths & sp_paths = splitPaths searchPathsString}}
 parseCommandLine ["-RO", outPath : args] options
 	=	parseCommandLine args {options & outPath = stripQuotes outPath, outMode = FWriteText}
 parseCommandLine ["-RAO", outPath : args] options
@@ -138,7 +135,7 @@ compileModule options commandLineArgs files
 	# (predefSymbols, hashTable) = buildPredefinedSymbols newHashTable
 	  (moduleIdent, hashTable) = putIdentInHashTable options.moduleName IC_Module hashTable
 	# (predefs, _, files, error, io, out, optionalSyntaxTree)
-		=	frontEndInterface moduleIdent options.searchPaths predefSymbols hashTable files error io out
+		=	frontEndInterface FrontEndPhaseAll moduleIdent options.searchPaths predefSymbols hashTable files error io out
 	# (closed, files)
 		=	fclose io files
 	| not closed
-- 
cgit v1.2.3