Fix think-o in previous change.

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index 26a6d9ea0e46b00dcf5455a83d1a8f4ff841131a..6b6b54da3bdc50b6daecc334ee8718ece1df42b7 100644 (file)
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: datime.scm,v 14.6 1995/04/15 06:28:23 cph Exp $
+$Id: datime.scm,v 14.7 1995/04/15 06:56:27 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -66,12 +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 (month/max-days month))
-                        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 eab31f57c4717f4a64a1d637d24d8ea37927e0bc..d3227964ec82a23446706a97d8b34b1046271960 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.11 1995/04/15 06:29:04 cph Exp $
+$Id: os2prm.scm,v 1.12 1995/04/15 06:58:41 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -108,7 +108,7 @@ MIT in each case. |#
   ;; Except for the missing time zone, this is an RFC-822 date/time string.
   (let ((dt (decode-file-time time))
        (d2 (lambda (n) (string-pad-left (number->string n) 2 #\0))))
-    (string-append (number->string (decoded-time/year dt))
+    (string-append (number->string (decoded-time/day dt))
                   " "
                   (month/short-string (decoded-time/month dt))
                   " "