Fix mzscheme static variable wrappers
$argnum needs to be expanded in the 'varin' typemap which shares code used by the 'in' typemap. Setting the static variable is also a function call (argnum=1). Added class examples - needs static variables to work Test newly working test cases with this fix
This commit is contained in:
parent
b21a28f26a
commit
20344093ef
8 changed files with 151 additions and 24 deletions
|
|
@ -527,7 +527,7 @@ public:
|
|||
Replaceall(tm, "$source", "argv[0]");
|
||||
Replaceall(tm, "$target", name);
|
||||
Replaceall(tm, "$input", "argv[0]");
|
||||
/* Printv(f->code, tm, "\n",NIL); */
|
||||
Replaceall(tm, "$argnum", "1");
|
||||
emit_action_code(n, f->code, tm);
|
||||
} else {
|
||||
throw_unhandled_mzscheme_type_error(t);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue