From 183e835b2de3d7d3bb92ea824bd0759925cde3f9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 8 Mar 2001 18:24:30 +0000 Subject: [PATCH] Fix problem that broke upwards compatibility. --- v7/src/microcode/utils.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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*/ } -- 2.25.1