Chicken: Fix bug when exporting non-class variables using -proxy
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6865 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
256dcda5f8
commit
950ecdc961
1 changed files with 1 additions and 4 deletions
|
|
@ -735,11 +735,8 @@ CHICKEN::variableWrapper(Node *n) {
|
|||
if (!in_class) {
|
||||
String *class_name = SwigType_typedef_resolve_all(SwigType_base(t));
|
||||
String *clos_name = chickenNameMapping(scmname, (char *)"");
|
||||
String *primitive_name = NewString("");
|
||||
Printv(primitive_name, scmname, NIL);
|
||||
/* Simply re-export the procedure */
|
||||
Printv(closcode, "(define ", clos_name, " ", primitive_name, ")\n", NIL);
|
||||
Delete(primitive_name);
|
||||
Printv(closcode, "(define ", clos_name, " ", chickenPrimitiveName(scmname), ")\n", NIL);
|
||||
Delete(class_name);
|
||||
Delete(clos_name);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue