From afb8d1d4c82c7e33e665cd88551083fb73d4e5c6 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 8 Jan 1994 21:23:00 +0000 Subject: [PATCH] Rename runtim.* to runtime.* Rename comp.* to compiler.* --- etc/bootstrap.scm | 123 +++++++++--------- v7/src/compiler/machines/C/compiler.sf | 16 +-- v7/src/compiler/machines/alpha/compiler.pkg | 6 +- v7/src/compiler/machines/alpha/compiler.sf | 16 +-- v7/src/compiler/machines/bobcat/compiler.pkg | 6 +- v7/src/compiler/machines/bobcat/compiler.sf | 16 +-- v7/src/compiler/machines/i386/compiler.pkg | 6 +- v7/src/compiler/machines/i386/compiler.sf | 16 +-- v7/src/compiler/machines/mips/compiler.pkg | 6 +- v7/src/compiler/machines/mips/compiler.sf-big | 16 +-- .../compiler/machines/mips/compiler.sf-little | 16 +-- .../compiler/machines/spectrum/compiler.pkg | 6 +- v7/src/compiler/machines/spectrum/compiler.sf | 16 +-- v7/src/compiler/machines/vax/compiler.pkg | 6 +- v7/src/compiler/machines/vax/compiler.sf | 16 +-- 15 files changed, 145 insertions(+), 142 deletions(-) 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 -- 2.25.1