Source

olfend / note.txt

Full commit
1
2
3
4
5
let fold_left1 f (x::xs) = fold_left1 f x xs

(* The error is reported at the def of fold_left1.
   Need to see the stack trace if fold_left1 is called with []
*)