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:
John Lenz 2004-12-12 21:50:42 +00:00
commit 950ecdc961

View file

@ -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);
}