From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ben@socialtools.net>
Delivered-To: caml-list@yquem.inria.fr
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78])
	by yquem.inria.fr (Postfix) with ESMTP id EDF38BB81
	for <caml-list@yquem.inria.fr>; Fri, 24 Dec 2004 11:53:45 +0100 (CET)
Received: from rabelais.socialtools.net (rabelais.socialtools.net [81.2.94.243])
	by nez-perce.inria.fr (8.13.0/8.13.0) with ESMTP id iBOArjjR001444
	for <caml-list@yquem.inria.fr>; Fri, 24 Dec 2004 11:53:45 +0100
Received: by rabelais.socialtools.net (Postfix, from userid 108)
	id F187523345; Fri, 24 Dec 2004 10:53:44 +0000 (GMT)
Received: from chaucer (chaucer.socialtools.net [81.2.94.242])
	by rabelais.socialtools.net (Postfix) with ESMTP
	id DD3F323341; Fri, 24 Dec 2004 10:53:43 +0000 (GMT)
From: Benjamin Geer <ben@socialtools.net>
To: caml-list@yquem.inria.fr
Subject: Re: [Caml-list] .-
Date: Fri, 24 Dec 2004 10:53:38 +0000
User-Agent: KMail/1.6.2
Cc: Anastasia Gornostaeva <ermine@ermine.pp.ru>
References: <20041224100422.GA10012@ermine.home>
In-Reply-To: <20041224100422.GA10012@ermine.home>
MIME-Version: 1.0
Content-Disposition: inline
Content-Type: text/plain;
  charset="koi8-r"
Content-Transfer-Encoding: 7bit
Message-Id: <200412241053.38368.ben@socialtools.net>
X-Miltered: at nez-perce with ID 41CBF539.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Spam: no; 0.00; caml-list:01 wrote:01 printf:01 printf:01 unix:01 unix:01 benjamin:01 cma:01 curr:01 curr:01 diff:01 diff:01 caml:02 objective:02 unit:02 
X-Spam-Checker-Version: SpamAssassin 3.0.0 (2004-09-13) on yquem.inria.fr
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=disabled 
	version=3.0.0
X-Spam-Level: 

On Friday 24 December 2004 10:04, Anastasia Gornostaeva wrote:
> gives an negative result -7200.000000. Why?

I just tried it and got this result:

        Objective Caml version 3.08.1

# #load "unix.cma" ;;
# open Unix

  let _ =
     let curr_time = time () in
     let curr_tm = gmtime curr_time in
     let new_time, _ = mktime {curr_tm with tm_hour = curr_tm.tm_hour+1} in
     let diff = new_time -. curr_time in
        Printf.printf "%f\n%f\n%f\n"
           curr_time
           new_time
           diff  ;;
1103885443.000000
1103889043.000000
3600.000000
- : unit = ()

Ben