From debbugs-submit-bounces@debbugs.gnu.org Sat Mar 18 18:41:41 2017 Received: (at submit) by debbugs.gnu.org; 18 Mar 2017 22:41:41 +0000 Received: from localhost ([127.0.0.1]:34400 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cpN2b-00040j-3V for submit@debbugs.gnu.org; Sat, 18 Mar 2017 18:41:41 -0400 Received: from eggs.gnu.org ([208.118.235.92]:53843) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cpN2Z-00040T-6g for submit@debbugs.gnu.org; Sat, 18 Mar 2017 18:41:39 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cpN2T-0008FU-0A for submit@debbugs.gnu.org; Sat, 18 Mar 2017 18:41:34 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,T_DKIM_INVALID autolearn=disabled version=3.3.2 Received: from lists.gnu.org ([2001:4830:134:3::11]:34389) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cpN2S-0008FP-T6 for submit@debbugs.gnu.org; Sat, 18 Mar 2017 18:41:32 -0400 Received: from eggs.gnu.org ([2001:4830:134:3::10]:44812) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cpN2R-0008Fm-RN for bug-guile@gnu.org; Sat, 18 Mar 2017 18:41:32 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cpN2R-0008F6-3S for bug-guile@gnu.org; Sat, 18 Mar 2017 18:41:31 -0400 Received: from river6.fysh.org ([2001:41d0:d:20da::2]:55942 helo=river.fysh.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cpN2Q-0008Ey-Q8 for bug-guile@gnu.org; Sat, 18 Mar 2017 18:41:31 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=fysh.org; s=20170316; h=Content-Type:MIME-Version:Message-ID:Subject:To:From:Date; bh=HDKgZd6yXaX1LLpgetNzAx30ufmdL1ZkJYdrW7XFlks=; b=vQoa+UZ8YwWfwp4NHXeLn+KVQxzOnhhmFrRRpabaXo4EsfjisDQvq9fVW5nExlDtlEOZ1518eyLggs+JbGBN9pX72VRGN12YTbJfWDfbEgskK9ZNtGCE90Id429pJGaVxRjOhxyFrW1JL2FkQu3LCnD7gLPNWRf0pMWyK7HkN8s=; Received: from zefram by river.fysh.org with local (Exim 4.84_2 #1 (Debian)) id 1cpN2M-0005Ah-Hy; Sat, 18 Mar 2017 22:41:26 +0000 Date: Sat, 18 Mar 2017 22:41:26 +0000 From: Zefram To: bug-guile@gnu.org Subject: time-difference mishandles leap seconds Message-ID: <20170318224126.GK6518@fysh.org> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.0 (----) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.0 (----) Computing the duration of the period between two UTC times, using SRFI-19 mechanisms: scheme@(guile-user)> (use-modules (srfi srfi-19)) scheme@(guile-user)> (define t0 (date->time-utc (make-date 0 59 59 23 30 6 2012 0))) scheme@(guile-user)> (define t1 (date->time-utc (make-date 0 1 0 0 1 7 2012 0))) scheme@(guile-user)> (time-difference t1 t0) $1 = #