From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Mar 2001 18:24:30 +0000 (+0000)
Subject: Fix problem that broke upwards compatibility.
X-Git-Tag: 20090517-FFI~2919
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=183e835b2de3d7d3bb92ea824bd0759925cde3f9;p=mit-scheme.git

Fix problem that broke upwards compatibility.
---

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 2b2a9c399..9b8f968f7 100644
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: utils.c,v 9.77 2001/03/08 18:23:55 cph Exp $
+$Id: utils.c,v 9.78 2001/03/08 18:24:30 cph Exp $
 
 Copyright (c) 1987-2001 Massachusetts Institute of Technology
 
@@ -387,7 +387,7 @@ DEFUN (error_in_system_call, (err, name),
   VECTOR_SET (v, 0, (LONG_TO_UNSIGNED_FIXNUM (ERR_IN_SYSTEM_CALL)));
   VECTOR_SET (v, 1, (LONG_TO_UNSIGNED_FIXNUM ((unsigned int) err)));
   VECTOR_SET (v, 2, (LONG_TO_UNSIGNED_FIXNUM ((unsigned int) name)));
-  error_argument = argument;
+  error_argument = v;
   signal_error_from_primitive (ERR_IN_SYSTEM_CALL);
   /*NOTREACHED*/
 }