From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 04:17:02 +0000 (+0000)
Subject: Conditionalize output file extension for compiler (C back end produces
X-Git-Tag: 20090517-FFI~7573
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2515b2e5b670caa30ed5f42c7015f14d62f070a5;p=mit-scheme.git

Conditionalize output file extension for compiler (C back end produces
.c files).
---

diff --git a/v7/src/sf/butils.scm b/v7/src/sf/butils.scm
index 7786a0a00..742899fb9 100644
--- a/v7/src/sf/butils.scm
+++ b/v7/src/sf/butils.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.7 1992/08/24 17:39:23 cph Exp $
+$Id: butils.scm,v 4.8 1993/11/09 04:17:02 gjr Exp $
 
-Copyright (c) 1988-92 Massachusetts Institute of Technology
+Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -67,20 +67,24 @@ MIT in each case. |#
 		      (directory-read input-directory)))))))
 
 (define sf-directory
-  (directory-processor "scm"
-		       (lambda () "bin")
-		       (lambda (pathname output-directory)
-			 (sf pathname output-directory))))
+  (directory-processor
+   "scm"
+   (lambda () "bin")
+   (lambda (pathname output-directory)
+     (sf pathname output-directory))))
 
 (define compile-directory
-  (directory-processor "bin"
-		       (lambda ()
-			 (if (environment-lookup (->environment '(compiler))
-						 'compiler:cross-compiling?)
-			     "moc"
-			     "com"))
-		       (lambda (pathname output-directory)
-			 (compile-bin-file pathname output-directory))))
+  (directory-processor
+   "bin"
+   (lambda ()
+     (if (environment-lookup (->environment '(compiler))
+			     'compiler:cross-compiling?)
+	 "moc"
+	 (environment-lookup (->environment '(compiler top-level))
+						 
+			     'compiled-output-extension)))
+   (lambda (pathname output-directory)
+     (compile-bin-file pathname output-directory))))
 
 (define sf-directory?)
 (define compile-directory?)