Rename runtim.* to runtime.*

Rename comp.* to compiler.*

diff --git a/etc/bootstrap.scm b/etc/bootstrap.scm
index 149b52a5a7b2d72fba382b1a36d1cb1ae4af7987..28a4e5c69713f202b40c631b830b1d12188bc67b 100644 (file)
--- 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 b0f34d6753123d2fe4ab0de8047f9bb2d32f982f..2e2fb3a708a9c18b3c2e0af7c9052c2888de7e9a 100644 (file)
--- 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 e27d99b7e6426900493b881b26ea0f989f32c8a0..7250d5027ea41ffa47e38a1796482b437e6e95c2 100644 (file)
--- 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
 \f
-(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 1849601a304eaf334f26ed776f6666af85e1bd60..09766dc328f311aeddb5fe10c63a491fd76728ba 100644 (file)
--- 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 e3f043b08d4bb5fbf6f906893a96e0d8e8a6e3d8..60fc098a12571d90e15ff13a11a5b2ab4f30081e 100644 (file)
--- 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
 \f
-(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 92110fb9eca1662ed40dd72e398a902672a8d0b8..c5c5cb1621b4f3f1b2a15111d20904b752830b12 100644 (file)
--- 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 322e906e121bc564b2cbd29a06babbe3f3f87cb6..dd24815586737e02d987375325079b7ed31fc05c 100644 (file)
--- 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
 \f
-(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 b3a5639f52ea30ded149b578b435704e304f4a81..e924896b67feb0b9f4bd5845e6a16fa419712659 100644 (file)
--- 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 c54c6dacc24836a47e41ca78a00ad3a3c68452d2..0b834d5e03f984a661ee65ea6e210060df3a19e5 100644 (file)
--- 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
 \f
-(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 689d3a49d79e02a54006146d2e866e08b7de1bc8..5eec4f8af09f9d9f9bcc6de8d50157287c83d21e 100644 (file)
--- 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 26e1d1485ce86b9ad953ab7a8ba502ea041e5017..ca82776005bb50d9fb6993a1e9315b6bb7f0a0a8 100644 (file)
--- 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 c78872a2cc2a8f0b776f975070226e434923e2aa..15ca7c984e6ffcaaab7fdd6dd9e9ae4caeb97cb3 100644 (file)
--- 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
 \f
-(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 120c517f63a190d993002da62584ab7886ab6602..46906390e0d89090b20706a6bc89fdafbc5b6cbc 100644 (file)
--- 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 d26941a353728b1177f399be63cdf57426dfde77..a884b0ed467128892918a17f66092350ad20d476 100644 (file)
--- 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
 \f
-(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 561980c43323ae9182e620467801a0e2fc54d824..82253002007df2b864fc50647e1a8c3b7a3a589c 100644 (file)
--- 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