Commit d551a2e8 authored by Pietro Abate's avatar Pietro Abate
Browse files

[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
parent 6f9b1a67
...@@ -33,7 +33,7 @@ let vrecord l = ...@@ -33,7 +33,7 @@ let vrecord l =
let get_fields = function let get_fields = function
| Record map -> LabelMap.mapi_to_list (fun k v -> LabelPool.value k, v) map | 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 let rec sequence = function
| [] -> nil | [] -> nil
......
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