From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <joelr1@gmail.com>
X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr
X-Spam-Level: *
X-Spam-Status: No, score=1.0 required=5.0 tests=AWL,SPF_NEUTRAL 
	autolearn=disabled version=3.1.3
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from discorde.inria.fr (discorde.inria.fr [192.93.2.38])
	by yquem.inria.fr (Postfix) with ESMTP id 9D7A2BC69
	for <caml-list@yquem.inria.fr>; Thu, 31 May 2007 20:58:19 +0200 (CEST)
Received: from mu-out-0910.google.com (mu-out-0910.google.com [209.85.134.186])
	by discorde.inria.fr (8.13.6/8.13.6) with ESMTP id l4VIwJjR028156
	for <caml-list@inria.fr>; Thu, 31 May 2007 20:58:19 +0200
Received: by mu-out-0910.google.com with SMTP id w9so277071mue
        for <caml-list@inria.fr>; Thu, 31 May 2007 11:58:18 -0700 (PDT)
DKIM-Signature: a=rsa-sha1; c=relaxed/relaxed;
        d=gmail.com; s=beta;
        h=domainkey-signature:received:received:in-reply-to:references:mime-version:content-type:message-id:cc:content-transfer-encoding:from:subject:date:to:x-mailer;
        b=lYnpfkRigg99mkJkl85+bAguB6vSHsfeRyzUH9YU6F20ZbDGB6xgPUPwCzjvwI5D+0Mwo2Z0ssgYGUljaD1Zli820Uf9ULMJDK+yYGkDXvE9YgpgJ/uWnVPYiyRoTLAFTl3UylUCBzRJz+WDj6SaUl4FhEM9pZDxp7KUUvrqDBE=
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=beta;
        h=received:in-reply-to:references:mime-version:content-type:message-id:cc:content-transfer-encoding:from:subject:date:to:x-mailer;
        b=WCYGkvTkocKv4ESdwJ+3xMHMFkwtR6dD6WNPHC9U3nyV7cq0YMBzOVoOIKsCDxXFmjbJWfho0YVn46RH4vDYCeZh8Ebv/DGP4V70Tqi2PgLHeKa8gR6G6PaRKOnlMmdil+uAvlimnb8o4STVjVU34BQZXel4wVudTzc6y4jkUdE=
Received: by 10.82.100.1 with SMTP id x1mr271749bub.1180637898009;
        Thu, 31 May 2007 11:58:18 -0700 (PDT)
Received: from ?192.168.1.33? ( [81.32.170.248])
        by mx.google.com with ESMTP id b33sm2095163ika.2007.05.31.11.58.16;
        Thu, 31 May 2007 11:58:17 -0700 (PDT)
In-Reply-To: <cd67f63a0705310829k17e9a4eej3cc15fcd66f08b15@mail.gmail.com>
References: <5F8F1647-A4A8-4C71-9958-9370C44ECB84@gmail.com> <cd67f63a0705310829k17e9a4eej3cc15fcd66f08b15@mail.gmail.com>
Mime-Version: 1.0 (Apple Message framework v752.3)
Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed
Message-Id: <979C8DFA-180A-4AA2-8D5A-63083BDDAEE7@gmail.com>
Cc: "OCaml List" <caml-list@inria.fr>
Content-Transfer-Encoding: 7bit
From: Joel Reymont <joelr1@gmail.com>
Subject: Re: GenerateFold
Date: Thu, 31 May 2007 19:58:21 +0100
To: Nicolas Pouillard <nicolas.pouillard@gmail.com>
X-Mailer: Apple Mail (2.752.3)
X-j-chkmail-Score: MSGID : 465F1ACB.000 on discorde : j-chkmail score : XXX : 5/20 1 0.000 -> 3
X-Miltered: at discorde with ID 465F1ACB.000 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)!
X-Spam: no; 0.00; annotations:01 camlp:01 expr:01 expr:01 camlp:01 val:01 decl:01 decl:01 struct:01 blog:98 token:01 token:01 inherit:01 inherit:01 ast:02 

I can remove everything but class fold = ... in my code [1] but I  
would still get the error I mentioned previously. Is there an issue  
with GenerateFold?

	Thanks, Joel

[1] Code...

(* Remove annotations for unit testing *)

class map = Camlp4Filters.GenerateMap.generated;;

let strip_token_loc = object
   inherit map as super
   method expr e =
     match super#expr e with
       | `TokenPos (a, _) -> a
       | e                -> e
end

let strip_stmt x = strip_token_loc#statement x;;

class fold = Camlp4Filters.GenerateFold.generated;;

let is_fun_arg = object
   inherit fold as super
   val found = false
   method found = found
   method input_decl x =
     match super#input_decl x with
       | `FunArgDecl _ -> {< found = true >}
       | _             -> self
end

let is_fun x = (is_fun_arg#statement x)#found;;

module Camlp4Trash = struct
   INCLUDE "easy_ast.ml";;
end;;


--
http://topdog.cc      - EasyLanguage to C# translator
http://wagerlabs.com  - Blog