suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix arity messages constructed internally for structure procs (PR 10019)

Browse Source 
svn: r13069
This commit is contained in:
Matthew Flatt 2009-01-12 13:31:07 +00:00
parent d954df380f
commit ab5d16d55b
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/error.c
View File

@ -1217,6 +1217,10 @@ char *scheme_make_arity_expect_string(Scheme_Object *proc,
} }
name = scheme_get_proc_name((Scheme_Object *)proc, &namelen, 1); name = scheme_get_proc_name((Scheme_Object *)proc, &namelen, 1);
#endif #endif
} else if (SCHEME_STRUCTP(proc)) {
name = proc;
mina = -1;
maxa = 0;
} else { } else {
Scheme_Closure_Data *data; Scheme_Closure_Data *data;

2
src/mzscheme/src/schpriv.h
View File

@ -362,7 +362,7 @@ extern mz_proc_thread *scheme_master_proc_thread;
extern THREAD_LOCAL mz_proc_thread *proc_thread_self; extern THREAD_LOCAL mz_proc_thread *proc_thread_self;
#endif #endif
extern int scheme_no_stack_overflow; extern THREAD_LOCAL int scheme_no_stack_overflow;
typedef struct Scheme_Thread_Set { typedef struct Scheme_Thread_Set {
Scheme_Object so; Scheme_Object so;