From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Mar 1994 21:39:59 +0000 (+0000)
Subject: Add FILE-EQ? procedure.
X-Git-Tag: 20090517-FFI~7268
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=22443c99ca7f8792da379528b87022e7cd474df6;p=mit-scheme.git

Add FILE-EQ? procedure.
---

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index 3bed07d15..261f76139 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.10 1993/11/09 04:31:40 cph Exp $
+$Id: sfile.scm,v 14.11 1994/03/04 21:39:59 cph Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -98,6 +98,10 @@ MIT in each case. |#
        (lambda ()
 	 (if output-channel (channel-close output-channel))
 	 (if input-channel (channel-close input-channel)))))))
+
+(define (file-eq? x y)
+  ((ucode-primitive file-eq?) (->namestring (merge-pathnames x))
+			      (->namestring (merge-pathnames y))))
 
 (define (call-with-temporary-filename receiver)
   (call-with-temporary-file-pathname