From c94ba16bdfe87ec659c32702d5162e83cb9559ca Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 6 Feb 1991 02:53:28 +0000 Subject: [PATCH] Fix bug in last patch. --- v7/src/compiler/etc/xcbfdir.scm | 5 +++-- v8/src/compiler/etc/xcbfdir.scm | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/etc/xcbfdir.scm b/v7/src/compiler/etc/xcbfdir.scm index 2608c7d40..3fc574c35 100644 --- a/v7/src/compiler/etc/xcbfdir.scm +++ b/v7/src/compiler/etc/xcbfdir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/xcbfdir.scm,v 1.4 1991/02/06 02:51:10 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/xcbfdir.scm,v 1.5 1991/02/06 02:53:28 jinx Exp $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -68,7 +68,8 @@ MIT in each case. |# (or (not one-time) (< one-time (file-modification-time pathname))))) - (processor pathname))) + (processor pathname + (pathname-new-type pathname extension)))) (lambda () (if touch-created-file? (delete-file two))))))))))) diff --git a/v8/src/compiler/etc/xcbfdir.scm b/v8/src/compiler/etc/xcbfdir.scm index 04d4bd7cb..6313a01f0 100644 --- a/v8/src/compiler/etc/xcbfdir.scm +++ b/v8/src/compiler/etc/xcbfdir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/xcbfdir.scm,v 1.4 1991/02/06 02:51:10 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/xcbfdir.scm,v 1.5 1991/02/06 02:53:28 jinx Exp $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -68,7 +68,8 @@ MIT in each case. |# (or (not one-time) (< one-time (file-modification-time pathname))))) - (processor pathname))) + (processor pathname + (pathname-new-type pathname extension)))) (lambda () (if touch-created-file? (delete-file two))))))))))) -- 2.25.1