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:
parent
689f2ecfa2
commit
3e93078f74
1 changed files with 6 additions and 0 deletions
|
|
@ -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",
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue