fix function is_monomorphic_symbol_type (pattern matches mail fail)

0ebd34c5 · John van Groningen · 05729bff · 0ebd34c5
Commit 0ebd34c5 authored Nov 24, 2017 by John van Groningen
--- a/frontend/trans.icl
+++ b/frontend/trans.icl
@@ -3593,7 +3593,7 @@ where

 	is_monomorphic_symbol_type (Yes {st_vars=[],st_attr_vars=[]})
 		= True
-	is_monomorphic_symbol_type No
+	is_monomorphic_symbol_type _
 		= False

 	find_same_Var :: ![Expression] !VarInfoPtr !Int -> Int