Add some chicken test-suite entries for overloaded functions
(which now work correctly) and update the chicken documentation git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7146 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
c70b62fee2
commit
c5f25b9168
10 changed files with 348 additions and 14 deletions
|
|
@ -1057,8 +1057,7 @@ CHICKEN::classHandler(Node *n)
|
|||
|
||||
if (have_constructor) {
|
||||
Printv(clos_methods, "(define-method (initialize (obj ", class_name, ") initargs)\n",
|
||||
" (call-next-method)\n",
|
||||
" (swig-initialize obj initargs ", NIL);
|
||||
" (swig-initialize obj initargs ", NIL);
|
||||
if (constructor_arg_types) {
|
||||
String *initfunc_name = NewStringf("%s@@SWIG@initmethod", class_name);
|
||||
String *func_call = buildClosFunctionCall(constructor_arg_types, initfunc_name, chickenPrimitiveName(constructor_name));
|
||||
|
|
@ -1080,9 +1079,8 @@ CHICKEN::classHandler(Node *n)
|
|||
constructor_name = 0;
|
||||
} else {
|
||||
Printv(clos_methods, "(define-method (initialize (obj ", class_name, ") initargs)\n",
|
||||
" (call-next-method)\n",
|
||||
" (swig-initialize obj initargs (lambda x #f)))\n",
|
||||
NIL);
|
||||
" (swig-initialize obj initargs (lambda x #f)))\n",
|
||||
NIL);
|
||||
}
|
||||
|
||||
/* export class initialization function */
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue