From 3e93078f74a0e237f2cdfc70c63a96ee00a692b3 Mon Sep 17 00:00:00 2001 From: John Lenz Date: Mon, 13 Dec 2004 02:01:26 +0000 Subject: [PATCH] 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 --- SWIG/Source/Modules/chicken.cxx | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/SWIG/Source/Modules/chicken.cxx b/SWIG/Source/Modules/chicken.cxx index e5f1c27b5..c646777fa 100644 --- a/SWIG/Source/Modules/chicken.cxx +++ b/SWIG/Source/Modules/chicken.cxx @@ -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",