From d26e8624e0a08cf958a9a71f05ba5dce20e647e9 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Tue, 9 Nov 1999 09:44:07 +0000
Subject: bug fix: missing alternative in 'instance distributeLets Selection'

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

(limited to 'frontend')

diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index 909209c..22ec9b4 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -1414,6 +1414,10 @@ where
 	distributeLets depth (ArraySelection selector expr_ptr expr) cp_info
 		# (expr, cp_info) = distributeLets depth expr cp_info
 		= (ArraySelection selector expr_ptr expr, cp_info)
+	distributeLets depth (DictionarySelection var selectors expr_ptr expr) cp_info
+		# (selectors, cp_info) = distributeLets depth selectors cp_info
+		# (expr, cp_info) = distributeLets depth expr cp_info
+		= (DictionarySelection var selectors expr_ptr expr, cp_info)
 	distributeLets depth selection cp_info
 		= (selection, cp_info)
 
-- 
cgit v1.2.3