diff options
Diffstat (limited to 'Lib/mzscheme')
-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, } - |