From 043c9e72b3fd3d612cbe707bb322668c2412cf14 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 6 Jan 2003 14:11:27 +0000
Subject: prevent compiler crash if an array pattern is not a variable

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

(limited to 'frontend')

diff --git a/frontend/checkFunctionBodies.icl b/frontend/checkFunctionBodies.icl
index 6403222..d414b83 100644
--- a/frontend/checkFunctionBodies.icl
+++ b/frontend/checkFunctionBodies.icl
@@ -2163,8 +2163,9 @@ addArraySelections array_patterns rhs_expr free_vars e_input e_state e_info cs
 	  , cs
 	  )
 
-
-
+buildSelections e_input {ap_selections=[]}
+	  (strict_binds, lazy_binds, free_vars, e_state, e_info, cs)
+	= (strict_binds, lazy_binds, free_vars, e_state, e_info, cs) // if an error occurs in checkPattern
 buildSelections e_input {ap_opt_var, ap_array_var, ap_selections}
 					(strict_binds, lazy_binds, free_vars, e_state, e_info, cs)
 	# (ap_array_var, [last_array_selection:lazy_binds], free_vars, e_state, e_info, cs)
-- 
cgit v1.2.3