[r2003-11-29 11:26:00 by szach] use a better exception for get_fields

Original author: szach
Date: 2003-11-29 11:26:00+00:00

runtime/value.ml

@@ -33,7 +33,7 @@ let vrecord l =
 
 let get_fields = function
   | Record map -> LabelMap.mapi_to_list (fun k v -> LabelPool.value k, v) map
-  | _ -> assert false
+  | _ -> raise (Invalid_argument "Value.get_fields")
 
 let rec sequence = function
   | [] -> nil