From ce68826200de1db8f195effd795cf813d40a607c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 15 Apr 1995 06:29:04 +0000
Subject: [PATCH] Fix think-o in previous change.
---
v7/src/runtime/datime.scm | 15 +++++++--------
v7/src/runtime/os2prm.scm | 9 ++-------
2 files changed, 9 insertions(+), 15 deletions(-)
diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index d39afeb81..26a6d9ea0 100644
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: datime.scm,v 14.5 1995/04/15 06:09:46 cph Exp $
+$Id: datime.scm,v 14.6 1995/04/15 06:28:23 cph Exp $
Copyright (c) 1988-95 Massachusetts Institute of Technology
@@ -66,13 +66,12 @@ MIT in each case. |#
((> number high) high)
(else number)))))
(let ((month (limit 1 month 12)))
- (make-decoded-time
- (limit 0 second 59)
- (limit 0 minute 59)
- (limit 0 hour 23)
- (limit 1 day (vector-ref days-per-month (- month 1)))
- month
- (if (< year 0) 0 year)))))
+ (make-decoded-time (limit 0 second 59)
+ (limit 0 minute 59)
+ (limit 0 hour 23)
+ (limit 1 day (month/max-days month))
+ month
+ (if (< year 0) 0 year)))))
(define (month/max-days month)
(guarantee-month month 'MONTH/MAX-DAYS)
diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index e4c7e7674..eab31f57c 100644
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: os2prm.scm,v 1.10 1995/04/15 06:12:21 cph Exp $
+$Id: os2prm.scm,v 1.11 1995/04/15 06:29:04 cph Exp $
Copyright (c) 1994-95 Massachusetts Institute of Technology
@@ -131,12 +131,7 @@ MIT in each case. |#
(time (quotient time 32))
(month (remainder time 16))
(year (quotient time 16)))
- (make-decoded-time (limit 0 (* twosecs 2) 59)
- (limit 0 minutes 59)
- (limit 0 hours 23)
- (limit 1 day 31)
- (limit 1 month 12)
- (+ 1980 year))))
+ (make-decoded-time (* twosecs 2) minutes hours day month (+ 1980 year))))
(define (file-attributes filename)
((ucode-primitive file-info 1)
--
2.25.1