Version française
Home     About     Download     Resources     Contact us    
Browse thread
GenerateFold
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: -- (:)
From: Joel Reymont <joelr1@g...>
Subject: Re: GenerateFold
Nicolas,

Could there be some other reason for this error? I comment out  
everything but the "fold" and still get it.

	Thanks, Joel

---

class fold = Camlp4Filters.GenerateFold.generated;;

(*
let is_fun_arg = object (self)
   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