From 09b62bcf1143b7ff0345951bbb577baea5d23d86 Mon Sep 17 00:00:00 2001
From: martinw
Date: Tue, 15 Aug 2000 11:22:34 +0000
Subject: adding "list inferred types" option

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

(limited to 'main')

diff --git a/main/compile.icl b/main/compile.icl
index 8b7ba93..b2c4054 100644
--- a/main/compile.icl
+++ b/main/compile.icl
@@ -131,11 +131,11 @@ compileModule options commandLineArgs files
 		=	abort ("couldn't open out file \"" +++ options.outPath +++ "\"\n")
 	# (io, files)
 		=	stdio files
-
 	# (predefSymbols, hashTable) = buildPredefinedSymbols newHashTable
 	  (moduleIdent, hashTable) = putIdentInHashTable options.moduleName IC_Module hashTable
 	# (predefs, _, files, error, io, out, optionalSyntaxTree)
-		=	frontEndInterface FrontEndPhaseAll moduleIdent options.searchPaths predefSymbols hashTable files error io out
+		=	frontEndInterface FrontEndPhaseAll moduleIdent options.searchPaths (isMember "-lt" commandLineArgs)
+								predefSymbols hashTable files error io out
 	# (closed, files)
 		=	fclose io files
 	| not closed
-- 
cgit v1.2.3