From ddb3ca41e77f1961a4355b6056a43ed02d0c043d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 23 Apr 1995 03:20:38 +0000 Subject: [PATCH] Use new primitives to get time zone and daylight savings time information. --- v7/src/runtime/os2prm.scm | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm index b692417af..6fe9d9de4 100644 --- a/v7/src/runtime/os2prm.scm +++ b/v7/src/runtime/os2prm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: os2prm.scm,v 1.13 1995/04/22 23:38:03 cph Exp $ +$Id: os2prm.scm,v 1.14 1995/04/23 03:20:38 cph Exp $ Copyright (c) 1994-95 Massachusetts Institute of Technology @@ -126,15 +126,10 @@ MIT in each case. |# tz)))))) (define (local-time-zone) - (let ((tz (get-environment-variable "TZ"))) - (or (and tz - (let ((l (string-length tz))) - (and (fix:> l 6) - (let ((n (substring->number tz 3 (fix:- l 3)))) - (and (exact-integer? n) - (<= -24 n 24) - n))))) - 5))) + (/ ((ucode-primitive os2-time-zone 0)) 3600)) + +(define os2/daylight-savings-time? + (ucode-primitive os2-daylight-savings-time? 0)) (define (decode-file-time time) (let* ((twosecs (remainder time 32)) -- 2.25.1