From 11f729b3816054cbfb8bd01e9700d7361a6c8116 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 3 May 1988 16:30:39 +0000 Subject: [PATCH] Restore bad-assignment error for environment-link-name. --- v7/src/microcode/utabmd.scm | 6 +++--- v8/src/microcode/utabmd.scm | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) 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 -- 2.25.1