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.1 required=5.0 tests=AWL,SPF_SOFTFAIL autolearn=disabled version=3.1.3 X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from mail3-relais-sop.national.inria.fr (mail3-relais-sop.national.inria.fr [192.134.164.104]) by yquem.inria.fr (Postfix) with ESMTP id 3CF30BC37 for ; Thu, 14 May 2009 07:28:06 +0200 (CEST) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: Ag0DAPtIC0qEpqxqnGdsb2JhbACXGgEBAQEBCAsICRG2NIQCBQ X-IronPort-AV: E=Sophos;i="4.41,193,1241388000"; d="scan'208";a="27696891" Received: from cirse-out.extra.cea.fr ([132.166.172.106]) by mail3-smtp-sop.national.inria.fr with ESMTP/TLS/DHE-RSA-AES256-SHA; 14 May 2009 07:28:05 +0200 Received: from pisaure.intra.cea.fr (pisaure.intra.cea.fr [132.166.88.21]) by cirse.extra.cea.fr (8.14.2/8.14.2/CEAnet-Internet-out-2.0) with ESMTP id n4E5S3Lu009228 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT); Thu, 14 May 2009 07:28:03 +0200 Received: from muguet1.intra.cea.fr (muguet1.intra.cea.fr [132.166.192.6]) by pisaure.intra.cea.fr (8.14.2/8.14.2) with ESMTP id n4E5S3tR007733; Thu, 14 May 2009 07:28:03 +0200 (envelope-from Benjamin.MONATE@cea.fr) Received: from levau.intra.cea.fr (levau.intra.cea.fr [132.166.88.52]) by muguet1.intra.cea.fr (8.13.8/8.13.8/CEAnet-Intranet-out-1.1) with ESMTP id n4E5S34r031384; Thu, 14 May 2009 07:28:03 +0200 Received: from LAXA.intra.cea.fr ([132.166.64.47]) by levau.intra.cea.fr with Microsoft SMTPSVC(6.0.3790.3959); Thu, 14 May 2009 07:28:03 +0200 X-MimeOLE: Produced By Microsoft Exchange V6.5 Content-class: urn:content-classes:message MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Subject: =?iso-8859-1?Q?RE=A0=3A_=5BCaml-list=5D_Re=3A_Toplevel_function_question?= Date: Thu, 14 May 2009 07:25:12 +0200 Message-ID: <5EFD4D7AC6265F4D9D3A849CEA92191901576830@LAXA.intra.cea.fr> X-MS-Has-Attach: X-MS-TNEF-Correlator: Thread-Topic: [Caml-list] Re: Toplevel function question Thread-Index: AcnUKH14PFeWd719Sca3kmOUhQLGJgAK92RV References: <9da743ed0905131643t98cd36co1f00498434be3c3c@mail.gmail.com> <9da743ed0905131710w5563de39i60f1d60c071ff515@mail.gmail.com> From: "MONATE Benjamin 205998" To: "Joel Christner" , "caml-list" X-OriginalArrivalTime: 14 May 2009 05:28:03.0311 (UTC) FILETIME=[C0C2E7F0:01C9D454] X-Spam: no; 0.00; toplevel:01 lexbuf:01 lexing:01 stdin:01 expr:01 lexbuf:01 expr:01 iter:01 lexing:01 stdin:01 iter:01 rec:01 rec:01 caml-list:01 cea:01 Hi, The last "let" is missing its corresponding "in". let _ =3D let lexbuf =3D Lexing.from_channel stdin in let rec storeoriginalprogram =3D let expr =3D lexbuf in match expr with | EOF -> () | _ -> (add_text originalprogramcontents expr); = storeoriginalprogram in let parseprogram =3D List.iter (fun n -> print_string n; print_string "\n";) = originalprogramcontents in parsepreogram You may also remove the last "let":=20 let _ =3D let lexbuf =3D Lexing.from_channel stdin in let rec storeoriginalprogram =3D let expr =3D lexbuf in match expr with | EOF -> () | _ -> (add_text originalprogramcontents expr); = storeoriginalprogram in=20 List.iter (fun n -> print_string n; print_string "\n";) = originalprogramcontents Hope this helps. -- Benjamin Monate CEA LIST Head of Software Safety Lab.