*** empty log message ***

diff --git a/v7/src/compiler/machines/vax/compiler.cbf b/v7/src/compiler/machines/vax/compiler.cbf
index f60287c5014b4b02bda6271f4b9f0b8d1717e1de..8168c6b9bad3395d3dda9d2591f705149ce22db1 100644 (file)
--- 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
 \f
-(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 2881d3c45985a5acdb8f44ec90d34c80559c8bc7..915212314e115e4b1be1da873604ce71da001cd2 100644 (file)
--- 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
 \f
-(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 5968836eac27664ccb66d9f9c68e591e6c886584..1fdde8800c4002a4d668b5460a60e4161be01c59 100644 (file)
--- 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. |#
 \f
 ;; 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