[Caml-list] Sample code doesn't work

["Rolf Wester" <wester@ilt.fhg.de>]

Hi,

I have a problem with the following simple example:

let rec make_account wert0 = 
  let wert = wert0 in
  let add wert_ =
    make_account (wert+.wert_)
  in   
  let sub wert_ =
    make_account (wert-.wert_)
  in 
  let get () = 
    wert 
  in
  (add, sub, get);;

When trying to evaluate this I get the error message:

This expression has type
  (float -> 'a * 'b * 'c) * (float -> 'a * 'b * 'c) * (unit -> float)
but is here used with type 'a * 'b * 'c

How can I make this work?


Rolf Wester
-------------------------------------
Rolf Wester
wester@ilt.fhg.de
-------------------
Bug reports: http://caml.inria.fr/bin/caml-bugs  FAQ: http://caml.inria.fr/FAQ/
To unsubscribe, mail caml-list-request@inria.fr  Archives: http://caml.inria.fr