From 101dbfcd3fa006e81825c194889d24718ab4270d Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 22 Aug 1991 17:59:32 +0000 Subject: [PATCH] Change compare-file-modification-times so that if foo.bin is linked to foo.scm, it won't be sf'd, etc. --- v7/src/sf/butils.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/v7/src/sf/butils.scm b/v7/src/sf/butils.scm index e59f44858..0e238dbd5 100644 --- a/v7/src/sf/butils.scm +++ b/v7/src/sf/butils.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.3 1989/08/17 15:59:21 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.4 1991/08/22 17:59:32 jinx Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -111,9 +111,9 @@ MIT in each case. |# (pathname-default-type pathname input-type) (pathname-new-type pathname output-type)))) -(define (compare-file-modification-times x y) - (let ((x (file-modification-time x))) - (and x - (let ((y (file-modification-time y))) - (and y - (< x y)))))) \ No newline at end of file +(define (compare-file-modification-times source target) + (let ((source (file-modification-time source))) + (and source + (let ((target (file-modification-time target))) + (and target + (<= source target)))))) \ No newline at end of file -- 2.25.1