add RECORD instance of gMap

Libraries/GenLib/GenMap.dcl

@@ -3,6 +3,6 @@ definition module GenMap
 import StdGeneric
 
 generic gMap a b :: .a -> .b
-derive gMap c, UNIT, PAIR, EITHER, CONS, FIELD, OBJECT, {}, {!} 
+derive gMap c, UNIT, PAIR, EITHER, CONS, RECORD, FIELD, OBJECT, {}, {!}
 
 derive gMap [], (,), (,,),  (,,,), (,,,,), (,,,,,), (,,,,,,), (,,,,,,,)

Libraries/GenLib/GenMap.icl

@@ -10,10 +10,10 @@ gMap{|PAIR|} fx fy (PAIR x y) 	= PAIR (fx x) (fy y)
 gMap{|EITHER|} fl fr (LEFT x) 	= LEFT (fl x)
 gMap{|EITHER|} fl fr (RIGHT x) 	= RIGHT (fr x)
 gMap{|CONS|} f (CONS x) 		= CONS (f x)
+gMap{|RECORD|} f (RECORD x) 	= RECORD (f x)
 gMap{|FIELD|} f (FIELD x) 		= FIELD (f x)
 gMap{|OBJECT|} f (OBJECT x) 	= OBJECT (f x)
 gMap{|{}|} f xs 				= mapArray f xs
 gMap{|{!}|} f xs				= mapArray f xs
 
 derive gMap [], (,), (,,),  (,,,), (,,,,), (,,,,,), (,,,,,,), (,,,,,,,)
-