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=0.0 required=5.0 tests=none 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 96186BC69 for ; Sun, 5 Aug 2007 07:35:46 +0200 (CEST) Received: from smtp.syd.people.net.au (smtp.syd.people.net.au [218.214.225.98]) by discorde.inria.fr (8.13.6/8.13.6) with SMTP id l755ZhlO008182 for ; Sun, 5 Aug 2007 07:35:45 +0200 Received: (qmail 16548 invoked from network); 5 Aug 2007 05:35:52 -0000 Received: from unknown (HELO hendrix.mega-nerd.net) (218.214.64.136) by smtp.syd.people.net.au with SMTP; 5 Aug 2007 05:35:52 -0000 Received: from hendrix (hendrix [192.168.200.99]) by hendrix.mega-nerd.net (Postfix) with SMTP id B7D65300F0 for ; Sun, 5 Aug 2007 15:35:42 +1000 (EST) Date: Sun, 5 Aug 2007 15:35:42 +1000 From: Erik de Castro Lopo To: caml-list@inria.fr Subject: Re: [Caml-list] Handling include files using ocamllex Message-Id: <20070805153542.4bef531b.mle+ocaml@mega-nerd.com> In-Reply-To: <20070805145238.76aed5d6.mle+ocaml@mega-nerd.com> References: <20070802200933.3621fb1a.mle+ocaml@mega-nerd.com> <1186060770.23889.39.camel@rosella.wigram> <20070805145238.76aed5d6.mle+ocaml@mega-nerd.com> Organization: Erik Conspiracy Secret Labs X-Mailer: Sylpheed 2.3.1 (GTK+ 2.10.11; x86_64-pc-linux-gnu) Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-j-chkmail-Score: MSGID : 46B561AF.001 on discorde : j-chkmail score : XXXXXXX : 15/20 0 0.000 -> 7 X-Miltered: at discorde with ID 46B561AF.001 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)! X-Spam: no; 0.00; ocaml:01 ocamllex:01 parser:01 parser:01 lexbuf:01 lexbuf:01 recursive:01 fucking:98 dorothy:98 parker:98 token:01 token:01 wrote:01 stack:01 stack:01 Erik de Castro Lopo wrote: > | Parser.TOK_EOF -> > ( match ls.stack with > | [] -> Parser.TOK_EOF > | (fn, ch, lb) :: tail -> > ls.filename <- fn ; > ls.chan <- ch ; > ls.stack <- tail ; > get_token ls dummy_lexbuf > ) Ooops, in the above section, there is a missing ls.lexbuf <- lb ; just before the recursive call to get_token. Erik -- ----------------------------------------------------------------- Erik de Castro Lopo ----------------------------------------------------------------- "I'm too fucking busy, or vice versa" -- Dorothy Parker