From 8152c2594d81e5d05658b81f579b3d6418407ca3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Jul 1989 23:52:21 +0000
Subject: [PATCH] *** empty log message ***

---
 v7/src/compiler/machines/vax/compiler.cbf |  4 +--
 v7/src/compiler/machines/vax/compiler.pkg |  4 +--
 v7/src/compiler/machines/vax/compiler.sf  | 32 ++++-------------------
 3 files changed, 9 insertions(+), 31 deletions(-)

diff --git a/v7/src/compiler/machines/vax/compiler.cbf b/v7/src/compiler/machines/vax/compiler.cbf
index f60287c50..8168c6b9b 100644
--- a/v7/src/compiler/machines/vax/compiler.cbf
+++ b/v7/src/compiler/machines/vax/compiler.cbf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.cbf,v 1.2 1989/05/22 17:11:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.cbf,v 1.3 1989/07/11 23:52:21 cph Rel $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -34,7 +34,7 @@ MIT in each case. |#
 
 ;;;; Compiler Recompiling script
 
-(compiler:batch-compile
+((access compiler:batch-compile (->environment '(compiler top-level)))
  '(
    "back/asmmac"
    "back/bittop"
diff --git a/v7/src/compiler/machines/vax/compiler.pkg b/v7/src/compiler/machines/vax/compiler.pkg
index 2881d3c45..915212314 100644
--- a/v7/src/compiler/machines/vax/compiler.pkg
+++ b/v7/src/compiler/machines/vax/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.pkg,v 1.4 1989/05/21 18:13:47 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.pkg,v 1.5 1989/07/11 23:48:53 cph Rel $
 $MC68020-Header: comp.pkg,v 1.22.1.1 89/05/21 14:45:10 GMT jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
@@ -35,7 +35,7 @@ MIT in each case. |#
 
 ;;;; Compiler Packaging
 
-(global-definitions "../../runtime/runtim")
+(global-definitions "../runtime/runtim")
 
 (define-package (compiler)
   (files "base/switch"
diff --git a/v7/src/compiler/machines/vax/compiler.sf b/v7/src/compiler/machines/vax/compiler.sf
index 5968836ea..1fdde8800 100644
--- a/v7/src/compiler/machines/vax/compiler.sf
+++ b/v7/src/compiler/machines/vax/compiler.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.sf,v 1.1 1989/05/17 20:32:50 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/compiler.sf,v 1.2 1989/07/11 23:51:35 cph Rel $
 $MC68020-Header: comp.sf,v 1.7 88/12/15 17:02:14 GMT cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
@@ -37,7 +37,7 @@ MIT in each case. |#
 
 ;; Guarantee that the package modeller is loaded.
 (if (not (name->package '(CROSS-REFERENCE)))
-    (with-working-directory-pathname "/scheme/cref" (lambda () (load "make"))))
+    (with-working-directory-pathname "../cref" (lambda () (load "make"))))
 
 ;; Guarantee that the compiler's package structure exists.
 (if (not (name->package '(COMPILER)))
@@ -101,29 +101,7 @@ MIT in each case. |#
 ;; Resyntax any files that need it.
 ((access syntax-files! (->environment '(COMPILER))))
 
-(define (link-file from to #!optional physical?)
-  ((make-primitive-procedure 'LINK-FILE)
-   (canonicalize-input-filename from)
-   (canonicalize-output-filename to)
-   (and (not (default-object? physical?)) physical?)))
+(cref/generate-all "comp")
 
-(define (unix-rename-file from to)
-  (if (file-exists? to)
-      (delete-file to))
-  (link-file from to true)
-  (delete-file from))
-
-;; Rebuild the package constructors and cref.
-(dynamic-wind
- (lambda ()
-   (link-file "machines/vax/comp.pkg" "comp.pkg" true))
- (lambda ()
-   (cref/generate-all "comp")
-   (unix-rename-file "comp.cref" "machines/vax/comp.cref")
-   (unix-rename-file "comp.con" "machines/vax/comp.con")
-   (unix-rename-file "comp.ldr" "machines/vax/comp.ldr")
-   (unix-rename-file "comp.glob" "machines/vax/comp.glob"))
- (lambda ()
-   (delete-file "comp.pkg")))
-(sf "machines/vax/comp.con" "comp.bcon")
-(sf "machines/vax/comp.ldr" "comp.bldr")
\ No newline at end of file
+(sf "comp.con" "comp.bcon")
+(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
-- 
2.25.1