From mboxrd@z Thu Jan  1 00:00:00 1970
Received: by pauillac.inria.fr; Tue, 22 Mar 94 11:16:58 +0100
Received: from concorde.inria.fr by pauillac.inria.fr; Tue, 22 Mar 94 00:46:36 +0100
Received: from Tamuz.Stanford.EDU (Tamuz.Stanford.EDU [36.28.0.48]) by concorde.inria.fr (8.6.8/8.6.6) with SMTP id AAA29960 for <caml-list@pauillac.inria.fr>; Tue, 22 Mar 1994 00:46:31 +0100
Received:  by Tamuz.Stanford.EDU (5.61/25-theory-eef) id AA06369; Mon, 21 Mar 94 15:46:04 -0800
From: Xavier Leroy <xavier@Theory.Stanford.EDU>
Message-Id: <9403212346.AA06369@Tamuz.Stanford.EDU>
Subject: Re: Bug in equality testing?
To: John.Harrison@cl.cam.ac.uk (John Harrison)
Date: Mon, 21 Mar 1994 15:46:02 -0800 (PST)
Cc: caml-list@pauillac.inria.fr
In-Reply-To: <"swan.cl.cam.:202150:940320152434"@cl.cam.ac.uk> from "John Harrison" at Mar 20, 94 03:24:23 pm
Content-Type: text/plain
Sender: weis@pauillac.inria.fr

> I've come across the following, which unless I am being stupid
> looks like a bug.

Yes, this is described as bug (1) in the file KNOWN-BUGS in the 0.6
distribution.

A simple workaround is to change the definition of the DEST function:
instead of

 let DEST = 
   fun (App p) -> p 
     | (Var _) -> failwith "DEST";;

write

 let DEST = 
   fun (App(x,y)) -> (x,y)
     | (Var _) -> failwith "DEST";;

Regards,

- Xavier Leroy