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

[r2002-11-25 23:34:14 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-25 23:34:40+00:00
parent 3cdbe0b6
......@@ -26,7 +26,7 @@ let fatal_error title s =
(* Configuration *)
let session_dirs = [ "/home/frisch/sessions"; "/users/formel/cduce/sessions" ]
let session_dirs = [ "/home/beppe/sessions"; "/home/frisch/sessions"; "/users/formel/cduce/sessions"]
let session_dir =
try List.find Sys.file_exists session_dirs
with Not_found -> fatal_error "Internal error"
......
......@@ -863,8 +863,11 @@ and sample_rec_record memo c =
Record (find (sample_rec_record_aux memo) (get_record c))
and sample_rec_record_aux memo fields =
[]
(*TODO*)
(*
raise Not_found
*)
(*
let aux acc (l,(o,t)) = if o then acc else (l, sample_rec memo t) :: acc in
List.fold_left aux [] fields
......
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