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

Original author: afrisch
Date: 2005-07-08 15:07:02+00:00

types/sample.ml

@@ -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