From fb1ff0ac7275a0ff99666d58d943c3dd1bfde1eb Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Thu, 11 Sep 2008 01:15:28 +0000
Subject: [PATCH] Fix mistake in previous commit: COMPILE-DATA-FROM-FILE must
 pay attention to the name of the output file; other parts of the system rely
 on it.

---
 v7/src/compiler/machines/C/ctop.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/compiler/machines/C/ctop.scm b/v7/src/compiler/machines/C/ctop.scm
index 515c2ca96..586574d90 100644
--- a/v7/src/compiler/machines/C/ctop.scm
+++ b/v7/src/compiler/machines/C/ctop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ctop.scm,v 1.34 2008/09/10 19:32:48 riastradh Exp $
+$Id: ctop.scm,v 1.35 2008/09/11 01:15:28 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -47,11 +47,12 @@ USA.
 		   (pathname-new-type pathname (c-output-extension))))))
 
 (define (compile-data-from-file object pathname)
+  pathname				;ignore
   (let ((result
-         (fluid-let ((*compiler-file-handle*
-                      (file-namestring
-                       (pathname-new-type pathname (c-output-extension)))))
-           (stringify-data object))))
+	 (compile-scode/file/hook *compiler-input-pathname*
+				  *compiler-output-pathname*
+	   (lambda ()
+	     (stringify-data object)))))
     ;; Make output palatable to compiler-file-output
     (vector #f (cons #f result))))
 
-- 
2.25.1