From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <psnively@mac.com>
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39])
	by yquem.inria.fr (Postfix) with ESMTP id 95A23BB83
	for <caml-list@yquem.inria.fr>; Mon,  5 Jun 2006 01:31:18 +0200 (CEST)
Received: from smtpout.mac.com (smtpout.mac.com [17.250.248.174])
	by concorde.inria.fr (8.13.6/8.13.6) with ESMTP id k54NVHLU025953
	for <caml-list@yquem.inria.fr>; Mon, 5 Jun 2006 01:31:18 +0200
Received: from mac.com (smtpin07-en2 [10.13.10.152])
	by smtpout.mac.com (Xserve/8.12.11/smtpout04/MantshX 4.0) with ESMTP id k54NVFpu015941
	for <caml-list@yquem.inria.fr>; Sun, 4 Jun 2006 16:31:15 -0700 (PDT)
Received: from [192.168.0.100] (dsl092-032-215.lax1.dsl.speakeasy.net [66.92.32.215])
	(authenticated bits=0)
	by mac.com (Xserve/smtpin07/MantshX 4.0) with ESMTP id k54NVEfh001319
	for <caml-list@yquem.inria.fr>; Sun, 4 Jun 2006 16:31:15 -0700 (PDT)
Mime-Version: 1.0 (Apple Message framework v750)
X-Gpgmail-State: !signed
Content-Type: text/plain; charset=US-ASCII; format=flowed
Message-Id: <234505D9-08C9-441E-8F05-A25F757BCFFF@mac.com>
Content-Transfer-Encoding: 7bit
From: Paul Snively <psnively@mac.com>
Subject: Does hweak 1.1 Not Work in O'Caml 3.09.2?
Date: Sun, 4 Jun 2006 16:31:14 -0700
To: caml-list@yquem.inria.fr
X-Mailer: Apple Mail (2.750)
X-Miltered: at concorde with ID 44836D45.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Spam: no; 0.00; o'caml:01 ocaml:01 val:01 foo:01 foo:01 val:01 exception:01 cma:01 caml:02 objective:02 color:97 string:02 confused:03 unit:03 let:03 
X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on yquem.inria.fr
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=disabled 
	version=3.0.3

         Objective Caml version 3.09.2

# #directory "/Tools/ocaml/hweak-1.1/";;
# #load "hweak.cma";;
# let container = new Weak_memo.c 100;;
val container : < _.. > Weak_memo.c = <obj>
# class foo =
   object
   method foo = "foo!"
   end;;
class foo : object method foo : string end
# let foo1 = new foo;;
val foo1 : foo = <obj>
# let un_foo1 = (foo1 :> < >);;
val un_foo1 : <  > = <obj>
# container#add foo1;;
- : unit = ()
# container#find un_foo1;;
Exception: Not_found.

Color me confused.