From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 3 May 1988 16:30:39 +0000 (+0000)
Subject: Restore bad-assignment error for environment-link-name.
X-Git-Tag: 20090517-FFI~12784
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=11f729b3816054cbfb8bd01e9700d7361a6c8116;p=mit-scheme.git

Restore bad-assignment error for environment-link-name.
---

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index db45a90a4..ed14357cd 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.45 1988/05/03 16:30:39 jinx Exp $
 
 (declare (usual-integrations))
 
@@ -485,7 +485,7 @@
 	       WRITE-INTO-PURE-SPACE                    ;1A
 	       #F		                        ;1B
 	       #F					;1C
-	       #F					;1D
+	       BAD-ASSIGNMENT				;1D
 	       FAILED-ARG-1-COERCION                    ;1E
 	       FAILED-ARG-2-COERCION                    ;1F
 	       OUT-OF-FILE-HANDLES			;20
@@ -571,4 +571,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.45 1988/05/03 16:30:39 jinx Exp $"
\ No newline at end of file
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 772ddf583..a4abf8d20 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.45 1988/05/03 16:30:39 jinx Exp $
 
 (declare (usual-integrations))
 
@@ -485,7 +485,7 @@
 	       WRITE-INTO-PURE-SPACE                    ;1A
 	       #F		                        ;1B
 	       #F					;1C
-	       #F					;1D
+	       BAD-ASSIGNMENT				;1D
 	       FAILED-ARG-1-COERCION                    ;1E
 	       FAILED-ARG-2-COERCION                    ;1F
 	       OUT-OF-FILE-HANDLES			;20
@@ -571,4 +571,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.45 1988/05/03 16:30:39 jinx Exp $"
\ No newline at end of file