Fix bug in last patch.

diff --git a/v7/src/compiler/etc/xcbfdir.scm b/v7/src/compiler/etc/xcbfdir.scm
index 2608c7d40e7bf1cd44f8891f2540a980d8852ea5..3fc574c35dc6f61b286e72476f05b2ac746f29fc 100644 (file)
--- 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 04d4bd7cb5762e4cf01966be1279079423dfe3d9..6313a01f0b734414eede0db82faa238d797a7ad1 100644 (file)
--- 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)))))))))))