Commit 5dccff6d authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-07-08 15:07:02 by afrisch] fix samples

Original author: afrisch
Date: 2005-07-08 15:07:02+00:00
parent e53a5d67
......@@ -32,11 +32,10 @@ let rec get memo t =
let r = Types.Record.get t in
let r = List.sort (fun (_,_,n1) (_,_,n2) -> -(compare n1 n2)) r in
try_seq record r with Not_found ->
try Types.Arrow.sample t with Not_found ->
t
(*
raise Not_found
*)
try Types.Arrow.sample t with Not_found -> raise Not_found
(* t *)
(* raise Not_found *)
let get = get D.empty
......
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