From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Mar 1991 21:12:23 +0000 (+0000)
Subject: Update for new error system and changes to REPL names.
X-Git-Tag: 20090517-FFI~10877
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ba49cc694ada3bcf604ddac56bee75a9ae532cb;p=mit-scheme.git

Update for new error system and changes to REPL names.
---

diff --git a/v7/src/sicp/sbuild.scm b/v7/src/sicp/sbuild.scm
index a15f2d4dc..ef774c96e 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.2 1990/11/14 14:58:10 cph Exp $
+$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 $
 
-Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1987-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -38,7 +38,7 @@ MIT in each case. |#
 
 (define student-system
   (make-system "Student (6.001)"
-	       14 2
+	       14 3
 	       `((,system-global-environment
 		  "compat" "graphics" "strmac" "stream" "genenv" "studen"))))
 
diff --git a/v7/src/sicp/studen.scm b/v7/src/sicp/studen.scm
index deb7053c6..a50cb5c41 100644
--- a/v7/src/sicp/studen.scm
+++ b/v7/src/sicp/studen.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sicp/studen.scm,v 1.3 1990/11/15 23:33:36 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sicp/studen.scm,v 1.4 1991/03/06 21:11:29 cph Exp $
 
-Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1987-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -114,8 +114,8 @@ MIT in each case. |#
 	     (or (syntax-table-ref system-global-syntax-table from)
 		 (error "Missing syntactic keyword" from))))))
     (for-each (lambda (name) (move name name))
-	      '(ACCESS BEGIN BKPT COLLECT COND CONS-STREAM DEFINE
-		       DELAY ERROR IF LAMBDA LET MAKE-ENVIRONMENT
+	      '(ACCESS BEGIN COLLECT COND CONS-STREAM DEFINE
+		       DELAY IF LAMBDA LET MAKE-ENVIRONMENT
 		       QUOTE SET! THE-ENVIRONMENT))
     (move 'AND 'CONJUNCTION)
     (move 'OR 'DISJUNCTION)
@@ -187,10 +187,6 @@ MIT in each case. |#
 (define user-global-names
   '(
     (%EXIT)
-    (%GE)
-    (%IN) 
-    (%OUT)
-    (%VE)
     (*)
     (*ARGS*)
     (*PROC*)
@@ -224,6 +220,7 @@ MIT in each case. |#
     (ASSV)
     (ATAN)
     (ATOM?)
+    (BKPT)
     (BREAK . BREAK-ENTRY)
     (BREAK-BOTH . BREAK)
     (BREAK-ENTRY)
@@ -284,7 +281,7 @@ MIT in each case. |#
     (EQ?)
     (EQUAL?)
     (EQV?)
-    (ERROR-PROCEDURE)
+    (ERROR)
     (EVAL)
     (EVEN?)
     (EXP)
@@ -301,11 +298,13 @@ MIT in each case. |#
     (FORCE)
     (FOURTH)
     (GCD)
+    (GE)
     (GENERATE-UNINTERNED-SYMBOL)
     (GRAPHICS-AVAILABLE?)
     (GRAPHICS-TEXT)
     (HEAD)
     (IMPLODE)
+    (IN)
     (INIT-GRAPHICS)
     (INTEGER-DIVIDE)
     (INTEGER?)
@@ -346,7 +345,8 @@ MIT in each case. |#
     (ODD?)
     (OPEN-READER-CHANNEL . OPEN-INPUT-FILE)
     (OPEN-PRINTER-CHANNEL . OPEN-OUTPUT-FILE)
-    (OR . OR*)
+    (OR . OR*) 
+    (OUT)
     (PAIR?)
     (POSITION-PEN)
     (POSITIVE?)
@@ -399,6 +399,7 @@ MIT in each case. |#
     (UNTRACE-EXIT)
     (USER-GLOBAL-ENVIRONMENT . #T)
     (USER-INITIAL-ENVIRONMENT . #T)
+    (VE)
     (VECTOR)
     (VECTOR-CONS)
     (VECTOR-REF)