From ab5d16d55b5b448453fbecba88d749e347995ba3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Jan 2009 13:31:07 +0000
Subject: [PATCH] fix arity messages constructed internally for structure procs
 (PR 10019)

svn: r13069
---
 src/mzscheme/src/error.c   | 4 ++++
 src/mzscheme/src/schpriv.h | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/error.c b/src/mzscheme/src/error.c
index 8237049fba..4422763fbb 100644
--- a/src/mzscheme/src/error.c
+++ b/src/mzscheme/src/error.c
@@ -1217,6 +1217,10 @@ char *scheme_make_arity_expect_string(Scheme_Object *proc,
     }
     name = scheme_get_proc_name((Scheme_Object *)proc, &namelen, 1);
 #endif
+  } else if (SCHEME_STRUCTP(proc)) {
+    name = proc;
+    mina = -1;
+    maxa = 0;
   } else {
     Scheme_Closure_Data *data;
 
diff --git a/src/mzscheme/src/schpriv.h b/src/mzscheme/src/schpriv.h
index 48207e915a..301079be72 100644
--- a/src/mzscheme/src/schpriv.h
+++ b/src/mzscheme/src/schpriv.h
@@ -362,7 +362,7 @@ extern mz_proc_thread *scheme_master_proc_thread;
 extern THREAD_LOCAL mz_proc_thread *proc_thread_self;
 #endif
 
-extern int scheme_no_stack_overflow;
+extern THREAD_LOCAL int scheme_no_stack_overflow;
 
 typedef struct Scheme_Thread_Set {
   Scheme_Object so;