From f5f6ee5edb45cc4154b3bd6b295d6f427bc7d6c8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Feb 1998 05:41:58 +0000
Subject: [PATCH] Change to use ADD-IDENTIFICATION! rather than ADD-SYSTEM!.

---
 v7/src/sicp/sbuild.scm | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/v7/src/sicp/sbuild.scm b/v7/src/sicp/sbuild.scm
index ef774c96e..c9bd5b0d7 100644
--- a/v7/src/sicp/sbuild.scm
+++ b/v7/src/sicp/sbuild.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sicp/sbuild.scm,v 1.3 1991/03/06 21:12:23 cph Exp $
+$Id: sbuild.scm,v 1.4 1998/02/12 05:41:58 cph Exp $
 
-Copyright (c) 1987-91 Massachusetts Institute of Technology
+Copyright (c) 1987-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -36,12 +36,9 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-(define student-system
-  (make-system "Student (6.001)"
-	       14 3
-	       `((,system-global-environment
-		  "compat" "graphics" "strmac" "stream" "genenv" "studen"))))
-
-(load-system! student-system #f)
+(for-each (lambda (filename)
+	    (load filename system-global-environment))
+	  '("compat" "graphics" "strmac" "stream" "genenv" "studen"))
+(add-identification! "Student (6.001)" 14 3)
 
 "Student environment loaded."
\ No newline at end of file
-- 
2.25.1