From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 18:44:17 +0000 (+0000)
Subject: Change 4-character suffixes used by package system to be 3-character
X-Git-Tag: 20090517-FFI~6791
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b1f96affd3a9a64661b60651a9ba7a0bbe9c1ac;p=mit-scheme.git

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.
---

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")