From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 8 Jan 1994 21:23:00 +0000 (+0000)
Subject: Rename runtim.* to runtime.*
X-Git-Tag: 20090517-FFI~7330
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=afb8d1d4c82c7e33e665cd88551083fb73d4e5c6;p=mit-scheme.git
Rename runtim.* to runtime.*
Rename comp.* to compiler.*
---
diff --git a/etc/bootstrap.scm b/etc/bootstrap.scm
index 149b52a5a..28a4e5c69 100644
--- a/etc/bootstrap.scm
+++ b/etc/bootstrap.scm
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: bootstrap.scm,v 1.3 1992/11/07 16:13:44 jinx Exp $
+$Id: bootstrap.scm,v 1.4 1994/01/08 21:23:00 gjr Exp $
-Copyright (c) 1991-1992 Massachusetts Institute of Technology
+Copyright (c) 1991-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -83,13 +83,13 @@ MIT in each case. |#
;;; Generate CREF files for runtime system
(with-working-directory-pathname "runtime"
(lambda ()
- (if (not (and (file-exists? "runtim.glob")
- (file-exists? "runtim.con")
- (file-exists? "runtim.ldr")))
+ (if (not (and (file-exists? "runtime.glob")
+ (file-exists? "runtime.con")
+ (file-exists? "runtime.ldr")))
(begin
- (cref/generate-constructors "runtim")
- (sf "runtim.con" "runtim.bcon")
- (sf "runtim.ldr" "runtim.bldr")))))
+ (cref/generate-constructors "runtime")
+ (sf "runtime.con" "runtime.bcon")
+ (sf "runtime.ldr" "runtime.bldr")))))
;;; Generate CREF files for CREF subsystem
(with-working-directory-pathname "cref"
@@ -119,9 +119,9 @@ MIT in each case. |#
(with-working-directory-pathname "compiler"
(lambda ()
(if (or (and (file-symbolic-link? "machine")
- (file-symbolic-link? "comp.cbf")
- (file-symbolic-link? "comp.pkg")
- (file-symbolic-link? "comp.sf")
+ (file-symbolic-link? "compiler.cbf")
+ (file-symbolic-link? "compiler.pkg")
+ (file-symbolic-link? "compiler.sf")
(file-symbolic-link? "make.com")
(file-symbolic-link? "make.binf"))
(let ((types
@@ -152,53 +152,56 @@ MIT in each case. |#
(newline)
(write-string "Enter machine type: ")
(let ((type (read)))
- (cond ((not (assq type types))
- (beep)
- (loop))
- ((eq? type 'OTHER)
- false)
- (else
- (let ((directory
- (case type
- ((ALPHA) "alpha")
- ((HP-PA) "spectrum")
- ((I386) "i386")
- ((MC68030 MC68040) "bobcat")
- ((PMAX MIPS) "mips")
- ((VAX) "vax")))
- (ln-sf
- (let ((ln-s
- (let ((prim (make-primitive-procedure
- 'FILE-LINK-SOFT)))
- (lambda (from to)
- (prim (->namestring (merge-pathnames from))
- (->namestring (merge-pathnames to)))))))
- (lambda (from to)
- (if (file-exists? to)
- (delete-file to))
- (ln-s from to)))))
- (let ((prefix
- (string-append "machines/" directory)))
- (with-working-directory-pathname prefix
- (lambda ()
- (case type
- ((MC68030)
- (ln-sf "make020.scm" "make.scm"))
- ((MC68040)
- (ln-sf "make040.scm" "make.scm"))
- ((PMAX)
- (ln-sf "comp.sf-little" "comp.sf")
- (ln-sf "make.scm-little" "make.scm"))
- ((MIPS)
- (ln-sf "comp.sf-big" "comp.sf")
- (ln-sf "make.scm-big" "make.scm")))))
- (ln-sf prefix "machine")
- (ln-sf "machine/comp.cbf" "comp.cbf")
- (ln-sf "machine/comp.pkg" "comp.pkg")
- (ln-sf "machine/comp.sf" "comp.sf")
- (ln-sf "machine/make.com" "make.com")
- (ln-sf "machine/make.binf" "make.binf")))
- true))))))
+ (cond
+ ((not (assq type types))
+ (beep)
+ (loop))
+ ((eq? type 'OTHER)
+ false)
+ (else
+ (let ((directory
+ (case type
+ ((ALPHA) "alpha")
+ ((HP-PA) "spectrum")
+ ((I386) "i386")
+ ((MC68030 MC68040) "bobcat")
+ ((PMAX MIPS) "mips")
+ ((VAX) "vax")))
+ (ln-sf
+ (let ((ln-s
+ (let ((prim (make-primitive-procedure
+ 'FILE-LINK-SOFT)))
+ (lambda (from to)
+ (prim (->namestring
+ (merge-pathnames from))
+ (->namestring
+ (merge-pathnames to)))))))
+ (lambda (from to)
+ (if (file-exists? to)
+ (delete-file to))
+ (ln-s from to)))))
+ (let ((prefix
+ (string-append "machines/" directory)))
+ (with-working-directory-pathname prefix
+ (lambda ()
+ (case type
+ ((MC68030)
+ (ln-sf "make020.scm" "make.scm"))
+ ((MC68040)
+ (ln-sf "make040.scm" "make.scm"))
+ ((PMAX)
+ (ln-sf "compiler.sf-little" "compiler.sf")
+ (ln-sf "make.scm-little" "make.scm"))
+ ((MIPS)
+ (ln-sf "compiler.sf-big" "compiler.sf")
+ (ln-sf "make.scm-big" "make.scm")))))
+ (ln-sf prefix "machine")
+ (ln-sf "machine/compiler.cbf" "compiler.cbf")
+ (ln-sf "machine/compiler.pkg" "compiler.pkg")
+ (ln-sf "machine/compiler.sf" "compiler.sf")
+ (ln-sf "machine/make.com" "make.com")
+ (ln-sf "machine/make.binf" "make.binf")))
+ true))))))
(begin
- (load "comp.sf")
- (load "comp.cbf"))))))
\ No newline at end of file
+ (load "compiler.sf")
+ (load "compiler.cbf"))))))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/C/compiler.sf b/v7/src/compiler/machines/C/compiler.sf
index b0f34d675..2e2fb3a70 100644
--- a/v7/src/compiler/machines/C/compiler.sf
+++ b/v7/src/compiler/machines/C/compiler.sf
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf,v 1.2 1993/10/13 00:00:44 cph Exp $
+$Id: compiler.sf,v 1.3 1994/01/08 21:09:17 gjr Exp $
-Copyright (c) 1992-93 Massachusetts Institute of Technology
+Copyright (c) 1992-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -85,6 +85,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/alpha/compiler.pkg b/v7/src/compiler/machines/alpha/compiler.pkg
index e27d99b7e..7250d5027 100644
--- a/v7/src/compiler/machines/alpha/compiler.pkg
+++ b/v7/src/compiler/machines/alpha/compiler.pkg
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.pkg,v 1.11 1993/12/09 03:23:04 gjr Exp $
+$Id: compiler.pkg,v 1.12 1994/01/08 21:08:12 gjr Exp $
-Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.)
+Copyright (c) 1992-1994 Digital Equipment Corporation (D.E.C.)
This software was developed at the Digital Equipment Corporation
Cambridge Research Laboratory. Permission to copy this software, to
@@ -36,7 +36,7 @@ case.
;;;; Compiler Packaging
-(global-definitions "../runtime/runtim")
+(global-definitions "../runtime/runtime")
(define-package (compiler)
(files "base/switch"
diff --git a/v7/src/compiler/machines/alpha/compiler.sf b/v7/src/compiler/machines/alpha/compiler.sf
index 1849601a3..09766dc32 100644
--- a/v7/src/compiler/machines/alpha/compiler.sf
+++ b/v7/src/compiler/machines/alpha/compiler.sf
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf,v 1.2 1993/10/13 00:00:51 cph Exp $
+$Id: compiler.sf,v 1.3 1994/01/08 21:08:39 gjr Exp $
-Copyright (c) 1992-93 Digital Equipment Corporation (D.E.C.)
+Copyright (c) 1992-1994 Digital Equipment Corporation (D.E.C.)
This software was developed at the Digital Equipment Corporation
Cambridge Research Laboratory. Permission to copy this software, to
@@ -44,13 +44,13 @@ case.
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -110,6 +110,6 @@ case.
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index e3f043b08..60fc098a1 100644
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.pkg,v 1.48 1993/12/09 03:22:28 gjr Exp $
+$Id: compiler.pkg,v 1.49 1994/01/08 21:10:22 gjr Exp $
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -34,7 +34,7 @@ MIT in each case. |#
;;;; Compiler Packaging
-(global-definitions "../runtime/runtim")
+(global-definitions "../runtime/runtime")
(define-package (compiler)
(files "base/switch"
diff --git a/v7/src/compiler/machines/bobcat/compiler.sf b/v7/src/compiler/machines/bobcat/compiler.sf
index 92110fb9e..c5c5cb162 100644
--- a/v7/src/compiler/machines/bobcat/compiler.sf
+++ b/v7/src/compiler/machines/bobcat/compiler.sf
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf,v 1.14 1993/10/13 00:00:57 cph Exp $
+$Id: compiler.sf,v 1.15 1994/01/08 21:10:50 gjr Exp $
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -106,6 +106,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/i386/compiler.pkg b/v7/src/compiler/machines/i386/compiler.pkg
index 322e906e1..dd2481558 100644
--- a/v7/src/compiler/machines/i386/compiler.pkg
+++ b/v7/src/compiler/machines/i386/compiler.pkg
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.pkg,v 1.20 1993/12/09 03:22:08 gjr Exp $
+$Id: compiler.pkg,v 1.21 1994/01/08 21:12:00 gjr Exp $
-Copyright (c) 1992-1993 Massachusetts Institute of Technology
+Copyright (c) 1992-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -34,7 +34,7 @@ MIT in each case. |#
;;;; Compiler Packaging
-(global-definitions "../runtime/runtim")
+(global-definitions "../runtime/runtime")
(define-package (compiler)
(files "base/switch"
diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf
index b3a5639f5..e924896b6 100644
--- a/v7/src/compiler/machines/i386/compiler.sf
+++ b/v7/src/compiler/machines/i386/compiler.sf
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf,v 1.4 1993/10/13 00:01:04 cph Exp $
+$Id: compiler.sf,v 1.5 1994/01/08 21:11:45 gjr Exp $
-Copyright (c) 1992-93 Massachusetts Institute of Technology
+Copyright (c) 1992-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -105,6 +105,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/mips/compiler.pkg b/v7/src/compiler/machines/mips/compiler.pkg
index c54c6dacc..0b834d5e0 100644
--- a/v7/src/compiler/machines/mips/compiler.pkg
+++ b/v7/src/compiler/machines/mips/compiler.pkg
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.pkg,v 1.18 1993/12/09 03:22:45 gjr Exp $
+$Id: compiler.pkg,v 1.19 1994/01/08 21:15:50 gjr Exp $
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -34,7 +34,7 @@ MIT in each case. |#
;;;; Compiler Packaging
-(global-definitions "../runtime/runtim")
+(global-definitions "../runtime/runtime")
(define-package (compiler)
(files "base/switch"
diff --git a/v7/src/compiler/machines/mips/compiler.sf-big b/v7/src/compiler/machines/mips/compiler.sf-big
index 689d3a49d..5eec4f8af 100644
--- a/v7/src/compiler/machines/mips/compiler.sf-big
+++ b/v7/src/compiler/machines/mips/compiler.sf-big
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf-big,v 1.4 1993/10/13 00:01:12 cph Exp $
+$Id: compiler.sf-big,v 1.5 1994/01/08 21:17:31 gjr Exp $
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -108,6 +108,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/mips/compiler.sf-little b/v7/src/compiler/machines/mips/compiler.sf-little
index 26e1d1485..ca8277600 100644
--- a/v7/src/compiler/machines/mips/compiler.sf-little
+++ b/v7/src/compiler/machines/mips/compiler.sf-little
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf-little,v 1.4 1993/10/13 00:01:20 cph Exp $
+$Id: compiler.sf-little,v 1.5 1994/01/08 21:16:24 gjr Exp $
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -108,6 +108,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/spectrum/compiler.pkg b/v7/src/compiler/machines/spectrum/compiler.pkg
index c78872a2c..15ca7c984 100644
--- a/v7/src/compiler/machines/spectrum/compiler.pkg
+++ b/v7/src/compiler/machines/spectrum/compiler.pkg
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.pkg,v 1.46 1993/12/08 17:47:44 gjr Exp $
+$Id: compiler.pkg,v 1.47 1994/01/08 21:18:45 gjr Exp $
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -34,7 +34,7 @@ MIT in each case. |#
;;;; Compiler Packaging
-(global-definitions "../runtime/runtim")
+(global-definitions "../runtime/runtime")
(define-package (compiler)
(files "base/switch"
diff --git a/v7/src/compiler/machines/spectrum/compiler.sf b/v7/src/compiler/machines/spectrum/compiler.sf
index 120c517f6..46906390e 100644
--- a/v7/src/compiler/machines/spectrum/compiler.sf
+++ b/v7/src/compiler/machines/spectrum/compiler.sf
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf,v 1.14 1993/10/13 00:00:31 cph Exp $
+$Id: compiler.sf,v 1.15 1994/01/08 21:19:10 gjr Exp $
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -105,6 +105,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file
diff --git a/v7/src/compiler/machines/vax/compiler.pkg b/v7/src/compiler/machines/vax/compiler.pkg
index d26941a35..a884b0ed4 100644
--- a/v7/src/compiler/machines/vax/compiler.pkg
+++ b/v7/src/compiler/machines/vax/compiler.pkg
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.pkg,v 1.20 1993/12/09 03:23:25 gjr Exp $
+$Id: compiler.pkg,v 1.21 1994/01/08 21:20:23 gjr Exp $
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -34,7 +34,7 @@ MIT in each case. |#
;;;; Compiler Packaging
-(global-definitions "../runtime/runtim")
+(global-definitions "../runtime/runtime")
(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 561980c43..822530020 100644
--- a/v7/src/compiler/machines/vax/compiler.sf
+++ b/v7/src/compiler/machines/vax/compiler.sf
@@ -1,8 +1,8 @@
#| -*-Scheme-*-
-$Id: compiler.sf,v 1.5 1993/10/13 00:01:31 cph Exp $
+$Id: compiler.sf,v 1.6 1994/01/08 21:20:55 gjr Exp $
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -42,13 +42,13 @@ MIT in each case. |#
(if (not (name->package '(COMPILER)))
(begin
;; If there is no existing package constructor, generate one.
- (if (not (file-exists? "comp.bcon"))
+ (if (not (file-exists? "compiler.bcon"))
(begin
((access cref/generate-trivial-constructor
(->environment '(CROSS-REFERENCE)))
"comp")
- (sf "comp.con" "comp.bcon")))
- (load "comp.bcon")))
+ (sf "compiler.con" "compiler.bcon")))
+ (load "compiler.bcon")))
;; Guarantee that the necessary syntactic transforms and optimizers
;; are loaded.
@@ -109,6 +109,6 @@ MIT in each case. |#
((access syntax-files! (->environment '(COMPILER))))
;; Rebuild the package constructors and cref.
-(cref/generate-constructors "comp")
-(sf "comp.con" "comp.bcon")
-(sf "comp.ldr" "comp.bldr")
\ No newline at end of file
+(cref/generate-constructors "compiler")
+(sf "compiler.con" "compiler.bcon")
+(sf "compiler.ldr" "compiler.bldr")
\ No newline at end of file