Chicken: Export proxy function for constants (enums, defines)

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6868 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-12-13 02:01:26 +00:00
commit 3e93078f74

View file

@ -881,6 +881,12 @@ CHICKEN::constantWrapper(Node *n)
/* Now register the variable with the interpreter. */
addMethod(scmname, wname);
if (!in_class) {
String *clos_name = chickenNameMapping(scmname, (char *)"");
Printv(closcode, "(define ", clos_name, " ", chickenPrimitiveName(scmname), ")\n", NIL);
Delete(clos_name);
}
} else {
Swig_warning(WARN_TYPEMAP_VAR_UNDEF, input_file, line_number,
"Unsupported variable type %s (ignored).\n",