I'm missing something really obvious here, please
explain -
 
line 13, characters 17-22:
This expression has type node node_type
It has no method get_link


type 't node_type = Class of 't | Nil;;

class node link_ =
object (self)
   val mutable link: node node_type = link_     
   
   method add node_ =
      let next = ref link in
      let peek = ref link in
      while (!peek != Nil) do
         next := !peek;
         peek := !next#get_link; (* line 13 *)
         done;
      link <- node_                       
                        
   method get_link = link
end;;

__________________________________________________
Do you Yahoo!?
Yahoo! Tax Center - forms, calculators, tips, more
http://taxes.yahoo.com/
-------------------
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