On Tue, Nov 19, 2002 at 07:38:57PM +0100, Cezary Kaliszyk wrote:
> let rec single elem =
>   let ret = {
>     data = elem; 
>     next = Obj.magic 0;
>     prev = Obj.magic 0;
>   } in
>   ret.next <- ret;
>   ret.prev <- ret;
>   ret
> ;;

let rec ret = {
data = elem;
next = ret;
prev = ret;
} in ret
...

But I guess this has not much performance impact ;-)

-- 
: Michal Moskal ::::: malekith/at/pld-linux.org :  GCS {C,UL}++++$ a? !tv
: PLD Linux ::::::: Wroclaw University, CS Dept :  {E-,w}-- {b++,e}>+++ h
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners