On Mon, 2005-02-07 at 13:54, Jonathan Roewen wrote:

For functions, which 'on_drag()' is one of:

> 	let window = GroupedGraphic (
          let rec window = .
              ^^^
> 				[(MouseDrag, on_drag)] (* Where trouble begins =( *)

> 	and on_drag () = match window with

just add 'rec' keyword as shown.


-- 
John Skaller, mailto:skaller@users.sf.net
voice: 061-2-9660-0850, 
snail: PO BOX 401 Glebe NSW 2037 Australia
Checkout the Felix programming language http://felix.sf.net