Make OS-independent binding for file-time->string.

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index 402be6a4fd9a2d35306883a559f2c903f981e680..db85d5c3fa1c9ec1a0b9bdff24277dfc79e4ef93 100644 (file)
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.26 1995/04/09 22:32:00 cph Exp $
+$Id: dosprm.scm,v 1.27 1995/04/09 22:57:55 cph Exp $
 
 Copyright (c) 1992-95 Massachusetts Institute of Technology
 
@@ -265,12 +265,13 @@ MIT in each case. |#
   (or (get-environment-variable "HOME")
       (user-home-directory (current-user-name))))
 
+(define file-time->string
+  (ucode-primitive file-time->string 1))
+
 (define dos/user-home-directory user-home-directory)
 (define dos/current-user-name current-user-name)
 (define dos/current-home-directory current-home-directory)
-
-(define dos/file-time->string
-  (ucode-primitive file-time->string 1))
+(define dos/file-time->string file-time->string)
 
 (define (file-touch filename)
   ((ucode-primitive file-touch 1)

diff --git a/v7/src/runtime/os2prm.scm b/v7/src/runtime/os2prm.scm
index 031c0268c56cf8e12d8053c6920e4aa5ad01161c..608f6776355ec4ac3a91dda5edd6eef5bdb951d8 100644 (file)
--- a/v7/src/runtime/os2prm.scm
+++ b/v7/src/runtime/os2prm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: os2prm.scm,v 1.8 1995/04/09 22:32:10 cph Exp $
+$Id: os2prm.scm,v 1.9 1995/04/09 22:57:49 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -104,7 +104,7 @@ MIT in each case. |#
    access-time
    modification-time))
 \f
-(define (os2/file-time->string time)
+(define (file-time->string time)
   (let* ((twosecs (remainder time 32))
         (time    (quotient  time 32))
         (minutes (remainder time 64))
@@ -131,9 +131,6 @@ MIT in each case. |#
                   " "
                   (number->string (+ 1980 year)))))
 
-(define (os2/current-file-time)
-  (call-with-temporary-file-pathname file-modification-time))
-
 (define (file-attributes filename)
   ((ucode-primitive file-info 1)
    (->namestring (merge-pathnames filename))))

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 48abe2cfdf9790524a105599b52b588768bd608b..9ebf800542bb4730f0cd638540b1c894ffb3b639 100644 (file)
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.16 1995/02/07 23:56:33 cph Exp $
+$Id: sfile.scm,v 14.17 1995/04/09 22:57:42 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -146,4 +146,7 @@ MIT in each case. |#
      (lambda ()
        (vector-set! objects slot
                    (delete! filename (vector-ref objects slot)))
-       ((ucode-primitive set-fixed-objects-vector! 1) objects)))))
\ No newline at end of file
+       ((ucode-primitive set-fixed-objects-vector! 1) objects)))))
+
+(define (current-file-time)
+  (call-with-temporary-file-pathname file-modification-time))
\ No newline at end of file

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index 711234f495053d8cce29e42682e47eff686fcf1c..a10b4c3e895553f940015fbd32de8e71cd263414 100644 (file)
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.34 1995/04/09 22:32:18 cph Exp $
+$Id: unxprm.scm,v 1.35 1995/04/09 22:58:09 cph Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -230,9 +230,13 @@ MIT in each case. |#
 (define-integrable current-user-name
   (ucode-primitive current-user-name 0))
 
+(define-integrable file-time->string
+  (ucode-primitive file-time->string 1))
+
 (define unix/user-home-directory user-home-directory)
 (define unix/current-home-directory current-home-directory)
 (define unix/current-user-name current-user-name)
+(define unix/file-time->string file-time->string)
 
 (define-integrable unix/current-uid
   (ucode-primitive current-uid 0))
@@ -240,9 +244,6 @@ MIT in each case. |#
 (define-integrable unix/current-gid
   (ucode-primitive current-gid 0))
 
-(define-integrable unix/file-time->string
-  (ucode-primitive file-time->string 1))
-
 (define (unix/uid->string uid)
   (or ((ucode-primitive uid->string 1) uid)
       (number->string uid 10)))