Commit 0ebd34c5 authored by John van Groningen's avatar John van Groningen
Browse files

fix function is_monomorphic_symbol_type (pattern matches mail fail)

parent 05729bff
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment