From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 15 Apr 1995 06:58:41 +0000 (+0000)
Subject: Fix think-o in previous change.
X-Git-Tag: 20090517-FFI~6444
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06285f1e82df21072150ce25f80e28379f35fa13;p=mit-scheme.git

Fix think-o in previous change.
---

diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index 26a6d9ea0..6b6b54da3 100644
--- 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 eab31f57c..d3227964e 100644
--- 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))
 		   " "