From 0b1f96affd3a9a64661b60651a9ba7a0bbe9c1ac Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 18:44:17 +0000
Subject: [PATCH] Change 4-character suffixes used by package system to be
3-character suffixes. This is done by defaulting the output file on the call
to SF, which now generates the correct 3-character suffix.
---
v7/src/runtime/make.scm | 6 +++---
v8/src/runtime/make.scm | 6 +++---
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index e3f3de3ac..fcf16cbd1 100644
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: make.scm,v 14.55 1995/01/06 00:46:30 cph Exp $
+$Id: make.scm,v 14.56 1995/01/06 18:44:17 cph Exp $
Copyright (c) 1988-95 Massachusetts Institute of Technology
@@ -330,7 +330,7 @@ MIT in each case. |#
(car names))
(loop (cdr names)))))
(package/add-child! system-global-package 'PACKAGE environment-for-package)
-(eval (fasload "runtime.bcon" #f) system-global-environment)
+(eval (fasload "runtime.bco" #f) system-global-environment)
;;; Global databases. Load, then initialize.
(let ((files1
@@ -376,7 +376,7 @@ MIT in each case. |#
;; Note: The following code needs MAP* and MEMBER-PROCEDURE
;; from runtime/list. Fortunately that file has already been loaded.
- ((eval (fasload "runtime.bldr" #f) system-global-environment)
+ ((eval (fasload "runtime.bld" #f) system-global-environment)
(let ((to-avoid
(cons "packag"
(map* (if (file-exists? "runtime.bad")
diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm
index e3f3de3ac..fcf16cbd1 100644
--- a/v8/src/runtime/make.scm
+++ b/v8/src/runtime/make.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: make.scm,v 14.55 1995/01/06 00:46:30 cph Exp $
+$Id: make.scm,v 14.56 1995/01/06 18:44:17 cph Exp $
Copyright (c) 1988-95 Massachusetts Institute of Technology
@@ -330,7 +330,7 @@ MIT in each case. |#
(car names))
(loop (cdr names)))))
(package/add-child! system-global-package 'PACKAGE environment-for-package)
-(eval (fasload "runtime.bcon" #f) system-global-environment)
+(eval (fasload "runtime.bco" #f) system-global-environment)
;;; Global databases. Load, then initialize.
(let ((files1
@@ -376,7 +376,7 @@ MIT in each case. |#
;; Note: The following code needs MAP* and MEMBER-PROCEDURE
;; from runtime/list. Fortunately that file has already been loaded.
- ((eval (fasload "runtime.bldr" #f) system-global-environment)
+ ((eval (fasload "runtime.bld" #f) system-global-environment)
(let ((to-avoid
(cons "packag"
(map* (if (file-exists? "runtime.bad")
--
2.25.1