From 33b9acfa9fbb3bb11baf38322b155097a3825956 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 27 May 1991 17:56:12 +0000 Subject: [PATCH] Give touch-created-file? an initial value so that if file-touch fails, there will not be a secondary error in the unwind code. --- v7/src/compiler/etc/xcbfdir.scm | 4 ++-- v8/src/compiler/etc/xcbfdir.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/etc/xcbfdir.scm b/v7/src/compiler/etc/xcbfdir.scm index 14a2d9b74..b143401ac 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.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 44e8dc2f7..b8aee03ba 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.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, -- 2.25.1