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)
In-Reply-To: <"swan.cl.cam.:202150:940320152434"@cl.cam.ac.uk> from "John Harrison" at Mar 20, 94 03:24:23 pm
> 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