From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 1989 23:12:14 +0000 (+0000)
Subject: Use `sf/pathname-defaulting' to predict where `sf' will put its
X-Git-Tag: 20090517-FFI~12083
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8f214ba08ed8dec51279c4be28a25a3fb69b0edb;p=mit-scheme.git

Use `sf/pathname-defaulting' to predict where `sf' will put its
output file.
---

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 8df151911..b22ce7305 100644
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.16 1989/04/26 05:09:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.17 1989/05/08 23:12:14 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -175,17 +175,15 @@ MIT in each case. |#
 (define (cf input #!optional output)
   (let ((kernel
 	 (lambda (source-file)
-	     (let ((scode-file
-		    (merge-pathnames
-		     (make-pathname false false false false "bin" false)
-		     (->pathname source-file))))
+	   (with-values
+	       (lambda () (sf/pathname-defaulting source-file false false))
+	     (lambda (source-pathname bin-pathname spec-pathname)
 	       ;; Maybe this should be done only if scode-file
 	       ;; does not exist or is older than source-file.
-	       (sf source-file scode-file)
-	       (newline)
+	       (sf source-pathname bin-pathname spec-pathname)
 	       (if (default-object? output)
-		   (compile-bin-file scode-file)
-		   (compile-bin-file scode-file output))))))
+		   (compile-bin-file bin-pathname)
+		   (compile-bin-file bin-pathname output)))))))
     (if (pair? input)
 	(for-each kernel input)
 	(kernel input))))