From e014285ffbc1111bd6b3d81f53a0c95345acdf81 Mon Sep 17 00:00:00 2001
From: ronny
Date: Thu, 21 Nov 2002 15:50:27 +0000
Subject: bug fix: handle FailExpr in copy

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

(limited to 'frontend/convertcases.icl')

diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl
index ecc658c..6f70852 100644
--- a/frontend/convertcases.icl
+++ b/frontend/convertcases.icl
@@ -2003,6 +2003,8 @@ where
 	copy (TupleSelect tuple_symbol arg_nr expr) cp_info
 		# (expr, cp_info) = copy expr cp_info
 		= (TupleSelect tuple_symbol arg_nr expr, cp_info)
+	copy fail=:(FailExpr _) cp_info
+		= (fail, cp_info)
 	copy EE cp_info
 		= (EE, cp_info)
 	copy (NoBind ptr) cp_info
@@ -2112,9 +2114,7 @@ where
 
 (-*->) infixl
 (-*->) a b :== a // ---> b
-
 //import RWSDebug
-
 (->>) infixl
 (->>) a b :== a // ---> b
 (<<-) infixl
-- 
cgit v1.2.3