From f82c588442a843537ba3539c9e628060fe665782 Mon Sep 17 00:00:00 2001
From: diederik
Date: Tue, 8 Oct 2002 14:57:20 +0000
Subject: Add alternatives for FailExpr

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

(limited to 'frontend/convertcases.icl')

diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index cf99fcc..7a89582 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -251,6 +251,8 @@ where
 		= rs
 	weightedRefCount rci (NoBind ptr) rs
 		= rs
+	weightedRefCount rci (FailExpr _) rs
+		= rs
 	weightedRefCount rci expr rs
 		= abort ("weightedRefCount [Expression] (convertcases, 864))" -*-> expr)
 
@@ -566,6 +568,8 @@ where
 		= (EE, ds)
 	distributeLets depth (NoBind ptr) ds
 		= (NoBind ptr, ds)
+	distributeLets depth (FailExpr id) ds
+		= (FailExpr id, ds)
 
 instance distributeLets Case
 where 
-- 
cgit v1.2.3