From cfa1d5d9fd00334457b1c3733f8eb789628afdc8 Mon Sep 17 00:00:00 2001
From: martinw
Date: Fri, 18 Aug 2000 13:24:34 +0000
Subject: *** empty log message ***

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

(limited to 'frontend')

diff --git a/frontend/type.icl b/frontend/type.icl
index 26fe710..ea336fd 100644
--- a/frontend/type.icl
+++ b/frontend/type.icl
@@ -215,6 +215,8 @@ tryToOptimizePosition (App {app_symb={symb_name}}) ip
 	= tryToOptimizePositionFromString symb_name.id_name ip
 tryToOptimizePosition (fun @ _) ip
 	= tryToOptimizePosition fun ip
+tryToOptimizePosition _ _
+	= No
 
 tryToOptimizePositionFromString id_name ip
 	# fst_semicolon_index = searchlArrElt ((==) ';') id_name 0
-- 
cgit v1.2.3