From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 12 Jan 1993 19:05:30 +0000 (+0000)
Subject: Replace unix/current-file-time with get-time.
X-Git-Tag: 20090517-FFI~8603
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7639eecf5868dab5d7443a3dec958ff72d45d62;p=mit-scheme.git

Replace unix/current-file-time with get-time.
---

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 2b7a91776..a4b50a7d8 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: rmail.scm,v 1.26 1992/11/20 19:00:43 bal Exp $
+;;;	$Id: rmail.scm,v 1.27 1993/01/12 19:05:06 gjr Exp $
 ;;;
-;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1991-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -1360,7 +1360,7 @@ buffer visiting that file."
 		     (fetch-first-field "from" start (header-end start end)))
 		    "unknown")
 		" "
-		(unix/file-time->string (unix/current-file-time))
+		(unix/file-time->string (get-time))
 		"\n")
 	       start)))
 	  (append-to-file (buffer-region buffer) pathname false)
diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index 500e67359..9f3352f76 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: sendmail.scm,v 1.17 1992/11/17 17:50:18 cph Exp $
+;;;	$Id: sendmail.scm,v 1.18 1993/01/12 19:05:30 gjr Exp $
 ;;;
-;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1991-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -525,7 +525,7 @@ Numeric argument means justify as well."
       (insert-string "From " end)
       (insert-string (unix/current-user-name) end)
       (insert-string " " end)
-      (insert-string (unix/file-time->string (unix/current-file-time)) end)
+      (insert-string (unix/file-time->string (get-time)) end)
       (insert-newline end)
       (insert-region (buffer-start mail-buffer)
 		     (buffer-end mail-buffer)