1 #include "stdafx.h"
2 
3 #include "escheme.h"
4 #include "comtypes.h"
5 
isShortInt(Scheme_Object * o)6 BOOL isShortInt(Scheme_Object *o) {
7   long longVal;
8 
9   if (SCHEME_INTP(o) == FALSE) {
10     return FALSE;
11   }
12 
13   longVal = SCHEME_INT_VAL(o);
14 
15   return ((short)longVal == longVal);
16 }
17