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