diff options
author | Luigi Ballabio <luigi.ballabio@fastwebnet.it> | 2003-05-22 13:01:44 +0000 |
---|---|---|
committer | Luigi Ballabio <luigi.ballabio@fastwebnet.it> | 2003-05-22 13:01:44 +0000 |
commit | 7764b8227a6bd6bf643f9b70b7a0db35a24052fb (patch) | |
tree | 54744b2270b7ba3a798e7bdb3daa0d6e53a9a1d3 /Lib/mzscheme/typemaps.i | |
parent | c312a6fb140b61ef432b56c61eeddeb7a0ec4f8d (diff) | |
download | swig-7764b8227a6bd6bf643f9b70b7a0db35a24052fb.tar.gz |
Added correct (I hope) typechecking for native scripting objects
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4821 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/mzscheme/typemaps.i')
-rw-r--r-- | Lib/mzscheme/typemaps.i | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lib/mzscheme/typemaps.i b/Lib/mzscheme/typemaps.i index 9eadc4dbe..2dc450e2b 100644 --- a/Lib/mzscheme/typemaps.i +++ b/Lib/mzscheme/typemaps.i @@ -263,6 +263,8 @@ REF_MAP(double, SCHEME_REALP, scheme_real_to_double, %typemap (in) Scheme_Object * "$1=$input;"; %typemap (out) Scheme_Object * "$result=$1;"; +%typecheck(SWIG_TYPECHECK_POINTER) Scheme_Object * "$1=1;"; + /* ------------------------------------------------------------ * String & length @@ -340,4 +342,3 @@ REF_MAP(double, SCHEME_REALP, scheme_real_to_double, } - |