From 9a991c1bdb20d804e4563a296f64eba2dccd5364 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Jun 2007 19:29:35 +0000
Subject: [PATCH] Change error_with_argument() to signal ERR_IN_SYSTEM_CALL
 when appropriate.

---
 v7/src/microcode/utils.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/utils.c b/v7/src/microcode/utils.c
index 950a0d141..4c0f95391 100644
--- a/v7/src/microcode/utils.c
+++ b/v7/src/microcode/utils.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: utils.c,v 9.90 2007/04/22 16:31:23 cph Exp $
+$Id: utils.c,v 9.91 2007/06/06 19:29:35 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -339,7 +339,13 @@ void
 error_with_argument (SCHEME_OBJECT argument)
 {
   error_argument = argument;
-  signal_error_from_primitive (ERR_WITH_ARGUMENT);
+  signal_error_from_primitive
+    (((VECTOR_P (argument))
+      && ((VECTOR_LENGTH (argument)) > 0)
+      && ((VECTOR_REF (argument, 0))
+	  == (LONG_TO_UNSIGNED_FIXNUM (ERR_IN_SYSTEM_CALL))))
+     ? ERR_IN_SYSTEM_CALL
+     : ERR_WITH_ARGUMENT);
   /*NOTREACHED*/
 }
 
-- 
2.25.1