Give touch-created-file? an initial value so that if file-touch fails,

there will not be a secondary error in the unwind code.

diff --git a/v7/src/compiler/etc/xcbfdir.scm b/v7/src/compiler/etc/xcbfdir.scm
index 14a2d9b74282b2c14f52e8a4e289e61ac871d188..b143401ac992b2060cfbc09a1ec15569bf417f0d 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.6 1991/02/15 18:14:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/etc/xcbfdir.scm,v 1.7 1991/05/27 17:56:12 jinx Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -55,7 +55,7 @@ MIT in each case. |#
                  (newline port))
                (here 'next))
            (lambda ()
-             (let ((touch-created-file?))
+             (let ((touch-created-file? false))
                (dynamic-wind
                 (lambda ()
                   ;; file-touch returns #T if the file did not exist,

diff --git a/v8/src/compiler/etc/xcbfdir.scm b/v8/src/compiler/etc/xcbfdir.scm
index 44e8dc2f77f41068d3bda791b79af90abe2b5547..b8aee03ba82979843734c0a555211ca5e26773c6 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.6 1991/02/15 18:14:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/compiler/etc/xcbfdir.scm,v 1.7 1991/05/27 17:56:12 jinx Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -55,7 +55,7 @@ MIT in each case. |#
                  (newline port))
                (here 'next))
            (lambda ()
-             (let ((touch-created-file?))
+             (let ((touch-created-file? false))
                (dynamic-wind
                 (lambda ()
                   ;; file-touch returns #T if the file did not exist,