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