export strictness of getConsPath

libraries/StdEnv/StdGeneric.dcl

@@ -53,7 +53,7 @@ bimapId :: Bimap .a .a
 	
 // determine the path in the generic binary-sum-tree of a constructor
 :: ConsPos = ConsLeft | ConsRight
-getConsPath :: GenericConsDescriptor -> [ConsPos]
+getConsPath :: !GenericConsDescriptor -> [ConsPos]
 	
 // generic bidirectional mapping
 generic bimap a b :: Bimap .a .b

libraries/StdEnv/StdGeneric.icl

@@ -56,7 +56,7 @@ where
 		, map_from 	= x.map_from o map_from o y.map_to
 		}
 
-getConsPath :: GenericConsDescriptor -> [ConsPos]
+getConsPath :: !GenericConsDescriptor -> [ConsPos]
 getConsPath {gcd_index, gcd_type_def={gtd_num_conses}}
 	= doit gcd_index gtd_num_conses
 where