From f7bec0c3382f2280e67cc6b4201f40311f546076 Mon Sep 17 00:00:00 2001
From: ronny
Date: Thu, 3 May 2001 19:18:40 +0000
Subject: Flag to turn generics on and off (SupportGenerics), default off

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@386 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/frontend.icl | 2 +-
 frontend/syntax.dcl   | 1 +
 frontend/syntax.icl   | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/frontend/frontend.icl b/frontend/frontend.icl
index 2549924..aa322f0 100644
--- a/frontend/frontend.icl
+++ b/frontend/frontend.icl
@@ -130,7 +130,7 @@ frontEndInterface upToPhase mod_ident search_paths dcl_modules functions_and_mac
 	# heaps = { heaps & hp_type_heaps = type_heaps }
 
 	#! (components, ti_common_defs, fun_defs, generic_range, td_infos, heaps, hash_table, predef_symbols, dcl_mods, error_admin) = 
-		case True of
+		case SupportGenerics of
 		True -> convertGenerics 
 					components main_dcl_module_n ti_common_defs fun_defs td_infos 
 					heaps hash_table predef_symbols dcl_mods error_admin
diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl
index 1a69cf7..4a05bb2 100644
--- a/frontend/syntax.dcl
+++ b/frontend/syntax.dcl
@@ -4,6 +4,7 @@ import StdEnv
 
 import scanner, general, typeproperties, Heap
 
+SupportGenerics :== False
 PA_BUG on off :== on
 
 switch_import_syntax one_point_three two_point_zero :== one_point_three
diff --git a/frontend/syntax.icl b/frontend/syntax.icl
index 3b95cb9..e537e0b 100644
--- a/frontend/syntax.icl
+++ b/frontend/syntax.icl
@@ -4,6 +4,7 @@ import StdEnv, compare_constructor // ,RWSDebug
 
 import scanner, general, Heap, typeproperties, utilities
 
+SupportGenerics :== False
 PA_BUG on off :== on
 switch_import_syntax one_point_three two_point_zero :== one_point_three
 SwitchFusion fuse dont_fuse :== dont_fuse
-- 
cgit v1.2.3