On Feb 5, 2010, at 20.16 h, Tim Hanson wrote:

I'm trying to make two classes that have internal references to
themselves and each other, but can't figure it out. e.g:
-------
class a_pad = object
val mutable parent_mod = new a_mod
val mutable connnected : 'a_pad list = []
end

class a_mod = object
val mutable pads : 'a_pad list = []
end
-------

Try:

class a_pad =
  object
    val mutable parent_mod = new a_mod
    val mutable connected : a_pad list = []
  end
and a_mod =
  object
    val mutable pads : a_pad list = []
  end

Cheers,
/Andreas