From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 10 Mar 1987 13:36:06 +0000 (+0000)
Subject: Eliminate references to "beta".
X-Git-Tag: 20090517-FFI~13685
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=190a2b85e6e0ea81b2207e5ed86f51cc34082f18;p=mit-scheme.git

Eliminate references to "beta".
---

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index dbd401fdf..bd7de5b0d 100644
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.0 1987/03/10 13:25:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.1 1987/03/10 13:36:06 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -41,10 +41,10 @@ MIT in each case. |#
 (load "$zcomp/base/load" system-global-environment)
 
 (load-system system-global-environment
-	     'PACKAGE/BETA
+	     'PACKAGE/SCODE-OPTIMIZER
 	     '(SYSTEM-GLOBAL-ENVIRONMENT)
 	     '(
-	       (PACKAGE/BETA
+	       (PACKAGE/SCODE-OPTIMIZER
 		"mvalue.bin"		;Multiple Value Support
 		"eqsets.bin"		;Set Data Abstraction
 
@@ -94,14 +94,14 @@ MIT in each case. |#
 
 	       ))
 
-(in-package package/beta
-  (define beta/system
+(in-package package/scode-optimizer
+  (define scode-optimizer/system
     (make-environment
-      (define :name "Beta")
+      (define :name "SF")
       (define :version 3)
       (define :modification 0)))
-  (add-system! beta/system)
-  (beta/initialize!))
+  (add-system! scode-optimizer/system)
+  (scode-optimizer/initialize!))
 
 ;;; end IN-PACKAGE SYSTEM-GLOBAL-ENVIRONMENT
 )
\ No newline at end of file
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index b4ea5b8c8..a8ea433b2 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.0 1987/03/10 13:25:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.1 1987/03/10 13:36:06 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -41,10 +41,10 @@ MIT in each case. |#
 (load "$zcomp/base/load" system-global-environment)
 
 (load-system system-global-environment
-	     'PACKAGE/BETA
+	     'PACKAGE/SCODE-OPTIMIZER
 	     '(SYSTEM-GLOBAL-ENVIRONMENT)
 	     '(
-	       (PACKAGE/BETA
+	       (PACKAGE/SCODE-OPTIMIZER
 		"mvalue.bin"		;Multiple Value Support
 		"eqsets.bin"		;Set Data Abstraction
 
@@ -94,14 +94,14 @@ MIT in each case. |#
 
 	       ))
 
-(in-package package/beta
-  (define beta/system
+(in-package package/scode-optimizer
+  (define scode-optimizer/system
     (make-environment
-      (define :name "Beta")
+      (define :name "SF")
       (define :version 3)
       (define :modification 0)))
-  (add-system! beta/system)
-  (beta/initialize!))
+  (add-system! scode-optimizer/system)
+  (scode-optimizer/initialize!))
 
 ;;; end IN-PACKAGE SYSTEM-GLOBAL-ENVIRONMENT
 )
\ No newline at end of file