From ddeafcdd61d5d08041962fb2477cd1e509008094 Mon Sep 17 00:00:00 2001
From: martinw
Date: Tue, 14 Nov 2000 09:29:04 +0000
Subject: small bugfix

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

(limited to 'frontend')

diff --git a/frontend/typesupport.icl b/frontend/typesupport.icl
index 4f17359..8d7588c 100644
--- a/frontend/typesupport.icl
+++ b/frontend/typesupport.icl
@@ -1503,13 +1503,14 @@ optBeautifulizeIdent id_name
 	prefix_to_readable_name "_c"	= "case"
 	prefix_to_readable_name "_g"	= "guard"
 	prefix_to_readable_name "_f"	= "filter"
+	prefix_to_readable_name "_if"	= "if"
 	prefix_to_readable_name "\\"	= "lambda"
 	prefix_to_readable_name prefix
 		| prefix.[0] == 'c'
 			= "comprehension"
 		| prefix.[0] == 'g'
 			= "generator"
-	prefix_to_readable_name _		= abort "fatal error 21 in type.icl"
+	prefix_to_readable_name _		= abort "fatal error 21 in typesupport.icl"
 
 // search for an element in an array
 searchlArrElt p s i
-- 
cgit v1.2.3