From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Delivered-To: caml-list@yquem.inria.fr Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by yquem.inria.fr (Postfix) with ESMTP id C5A94BC88 for ; Thu, 10 Feb 2005 17:24:04 +0100 (CET) Received: from mail.cwork.com (ctm.163.supernets.net [209.4.187.163] (may be forged)) by concorde.inria.fr (8.13.0/8.13.0) with ESMTP id j1AGO3qP019814 for ; Thu, 10 Feb 2005 17:24:04 +0100 Message-Id: <200502101624.j1AGO3qP019814@concorde.inria.fr> Received: from casiopea ([201.243.195.128]) by mail.cwork.com (VisNetic.MailServer.v5.8.6.6) with ESMTP id OWZEKG for ; Thu, 10 Feb 2005 11:25:27 -0500 From: =?iso-8859-1?Q?Juancarlo_A=F1ez?= To: Subject: OCAML Newby Question: unbound module? Date: Thu, 10 Feb 2005 12:23:57 -0400 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Mailer: Microsoft Office Outlook, Build 11.0.6353 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2527 Thread-Index: AcUNBhfJTs+xxgZJRguNqsfFmTjg6AChnOkA In-Reply-To: <1107774357-a3361ef8de723e0a521735eb944d0de7@rashitoul.net> X-Miltered: at concorde with ID 420B8AA3.001 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)! X-Spam: no; 0.00; ocaml:01 newby:01 ocaml:01 wrote:01 rec:01 prerr:01 endline:01 unbound:01 unbound:01 tail:01 tail:01 dump:03 string:03 module:03 module:03 X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on yquem.inria.fr X-Spam-Status: No, score=0.1 required=5.0 tests=FORGED_RCVD_HELO, MSGID_FROM_MTA_HEADER autolearn=disabled version=3.0.2 X-Spam-Level: I'm trying to write my first OCAML program. It will be a module that helps handlings sets of path, like Apache Ant and WANT (http://www.suigeneris.org/want) do. Below is the first few lines of code I wrote. Whey I try to run it with ocaml, I get: "File "pattensets.ml", line 1, characters 0-11: Unbound module Dumper" Dumper.mil and dumper.ml are in the same directory. What am I doing wrong? -- Juanco --- open Dumper;; type fileName = string;; type path = fileName list;; let rec extract_file_name = function | ([], name) -> ([], name) | ('/'::tail, name) -> (tail, name) | (c::tail, name) -> extract_file_name (tail, name @ [c]) ;; let a = extract_file_name (['a';'b';'c'], []) in prerr_endline (Dumper.dump a);;