Fix think-o in previous change.

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index d39afeb81db80b61fd2eaec4bd3ec797ebbc048c..26a6d9ea0e46b00dcf5455a83d1a8f4ff841131a 100644 (file)
--- 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 e4c7e7674acdd60d65caea8335b94d580b097765..eab31f57c4717f4a64a1d637d24d8ea37927e0bc 100644 (file)
--- 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)