From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: 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 F2327BC69 for ; Fri, 1 Jun 2007 15:22:55 +0200 (CEST) Received: from mu-out-0910.google.com (mu-out-0910.google.com [209.85.134.189]) by discorde.inria.fr (8.13.6/8.13.6) with ESMTP id l51DMtc9006121 for ; Fri, 1 Jun 2007 15:22:55 +0200 Received: by mu-out-0910.google.com with SMTP id w9so547725mue for ; Fri, 01 Jun 2007 06:22:55 -0700 (PDT) DKIM-Signature: a=rsa-sha1; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:mime-version:in-reply-to:references:content-type:message-id:content-transfer-encoding:from:subject:date:to:x-mailer; b=mEoiozMmrdlqr6I2oRlcTEZbIkSiGjh1y/xXP8ESbKZp3F7eteQMEFYWWEwEAmymDOmiuEUYcbyttgC9k3jC9nfdVZ5pgzTU9yzlKcZFcChY58i/CinnQK3B3cCJ4VOkW84jblF9hOdEYvncYKONWW5i3FpA1zL0oXhIDkvmg7I= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:mime-version:in-reply-to:references:content-type:message-id:content-transfer-encoding:from:subject:date:to:x-mailer; b=tzb0XM34RzgpOkR81VB/NetzAhFRjqvub3aJILOE1VefKpSxZYIiWpSpAXOrFBGtHl8CBrHBxz0/mlaD7qUFS1tfZ6ZEltUn849xhAuki7xaOXgnIX1ieJxv6H+Tpwq4ZdS8UKJIzKXnsFJ/SkPCyclKcLXdnOmy6EIEoWy4rnM= Received: by 10.82.105.13 with SMTP id d13mr1351155buc.1180704175174; Fri, 01 Jun 2007 06:22:55 -0700 (PDT) Received: from ?192.168.1.33? ( [81.32.170.248]) by mx.google.com with ESMTP id c24sm412326ika.2007.06.01.06.22.51; Fri, 01 Jun 2007 06:22:54 -0700 (PDT) Mime-Version: 1.0 (Apple Message framework v752.3) In-Reply-To: <465FB7D6.1090805@gmail.com> References: <5F8F1647-A4A8-4C71-9958-9370C44ECB84@gmail.com> <979C8DFA-180A-4AA2-8D5A-63083BDDAEE7@gmail.com> <534D9E1D-8F72-4972-8F53-DA64CA2DD20B@gmail.com> <465FB7D6.1090805@gmail.com> Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed Message-Id: Content-Transfer-Encoding: 7bit From: Joel Reymont Subject: Re: [Caml-list] Re: GenerateFold Date: Fri, 1 Jun 2007 14:22:52 +0100 To: OCaml List X-Mailer: Apple Mail (2.752.3) X-j-chkmail-Score: MSGID : 46601DAF.001 on discorde : j-chkmail score : XXX : 5/20 1 0.000 -> 3 X-Miltered: at discorde with ID 46601DAF.001 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)! X-Spam: no; 0.00; byte:01 usr:01 ocamlc:01 camlp:01 -pp:01 cmo:01 bool:01 bool:01 expr:01 expr:01 decl:01 decl:01 blog:98 caml-list:01 short:01 I figured it out. The following introduction of order and order_type [2] triggers the error I was seeing previously [1]. This should be enough to reproduce the issue and, hopefully, provide clues on how to fix it. I have no clues, btw. Thanks, Joel [1] Error ocamlbuild c.byte + /usr/local/bin/ocamlc.opt -c -I +camlp4 -pp 'camlp4of -I src - filter map -filter fold -filter trash ' -o b.cmo b.ml File "ghost-location", line 1, characters 0-0: This expression has type < array : 'b. ('a -> 'b -> 'a) -> 'b array -> 'a; bool : bool -> 'a; expr : A.expr -> 'a; float : float -> 'a; id : A.id -> 'a; input_decl : A.input_decl -> 'a; int : int -> 'a; list : 'c. ('a -> 'c -> 'a) -> 'c list -> 'a; option : 'd. ('a -> 'd -> 'a) -> 'd option -> 'a; order : A.order -> 'a; order_type : A.order_type -> 'a; program : A.program -> 'a; ref : 'e. ('a -> 'e -> 'a) -> 'e ref -> 'a; statement : A.statement -> 'a; string : string -> 'a; subscript : A.subscript -> 'a; ty : A.ty -> 'a; .. > as 'a but is here used with type A.order_type [2] Code with order and order_type. type id = string and program = statement list and ty = [ | `TyAny ] and statement = [ | `Skip | `InputDecls of input_decl list ] and subscript = expr list and input_decl = [ | `InputDecl of id * ty * expr | `FunArgDecl of id * ty * subscript ] and expr = [ | `Int of int | `Float of float | `Str of string ] and order = { order_type: order_type; } and order_type = [ | `Buy | `Sell | `Short | `Cover ] -- http://topdog.cc - EasyLanguage to C# translator http://wagerlabs.com - Blog