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

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index db45a90a417824ca73bc4d554595e43965bcda9a..ed14357cdd1ea2e7a0e2a029d2d36fed12d33bad 100644 (file)
--- 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 772ddf583d0d14a1d3c66516ef40a186d9974e8f..a4abf8d2077c417b95821ea673dae246f0873820 100644 (file)
--- 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