From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Nov 1988 08:21:25 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~12451
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1a8e8a06e66d845dad35dea73ee24f194a89d3c3;p=mit-scheme.git

*** empty log message ***
---

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)))))