more friendly error message when renaming patterns

testsuite/compiler/renamer/funpatt.gf

@@ -0,0 +1,14 @@
+abstract funpatt = {
+
+-- this should raise error
+-- we cannot pattern match on functions
+
+cat D ;
+fun D1 : D ;
+    D2 : D ;
+
+fun d : D -> Int ;
+def d D1 = 1 ;
+    d D2 = 2 ;
+
+}