From 8581f82022dfff91dfc4713ecd19fffea9371757 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 16 Jan 2002 12:06:30 +0000
Subject: added default alternatives for functions 'is_lazy_or_strict_array'
 and 'is_lazy_or_strict_list' to prevent a compiler crash when a list or array
 is used in special with an undefined variable

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

diff --git a/frontend/check.icl b/frontend/check.icl
index b68c38b..62d760c 100644
--- a/frontend/check.icl
+++ b/frontend/check.icl
@@ -758,6 +758,8 @@ where
 		| glob_module==pds_module && glob_object==pds_def
 			= True
 			= False
+	is_lazy_or_strict_array _ predef_symbols
+		= False
 
 	is_lazy_or_strict_list [TA {type_index={glob_module,glob_object}} [],TV var] predef_symbols
 		# {pds_def,pds_module} = predef_symbols.[PD_ListType]
@@ -773,6 +775,8 @@ where
 		| glob_module==pds_module && glob_object==pds_def
 			= True
 			= False
+	is_lazy_or_strict_list _ predef_symbols
+		= False
 
 initializeContextVariables :: ![TypeContext] !*VarHeap ->  (![TypeContext], !*VarHeap)
 initializeContextVariables contexts var_heap
-- 
cgit v1.2.3