From 1a8e8a06e66d845dad35dea73ee24f194a89d3c3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 3 Nov 1988 08:21:25 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/compiler/machines/bobcat/decls.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm index 3c99983db..018bfe78a 100644 --- a/v7/src/compiler/machines/bobcat/decls.scm +++ b/v7/src/compiler/machines/bobcat/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 4.12 1988/11/03 08:20:03 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 4.13 1988/11/03 08:21:25 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -270,6 +270,7 @@ MIT in each case. |# (lambda () (sf/pathname-defaulting (source-node/pathname node) "" false)) (lambda (input-pathname bin-pathname spec-pathname) + input-pathname (pathname-touch! bin-pathname) (pathname-touch! (pathname-new-type bin-pathname "ext")) (if spec-pathname (pathname-touch! spec-pathname))))) -- 2.25.1