Forgot to check this
svn: r18312
This commit is contained in:
parent
f60645da2c
commit
7e6b4757fa
|
@ -467,7 +467,7 @@ Scheme_Object *objscheme_unwrap(Scheme_Object *obj, Scheme_Object *c)
|
||||||
Scheme_Object *s[1], *unwrapper, *unwrap_prop;
|
Scheme_Object *s[1], *unwrapper, *unwrap_prop;
|
||||||
Scheme_Class *cls = (Scheme_Class *)cls;
|
Scheme_Class *cls = (Scheme_Class *)cls;
|
||||||
|
|
||||||
if (!obj)
|
if (!obj || !cls)
|
||||||
return NULL;
|
return NULL;
|
||||||
|
|
||||||
unwrap_prop = cls->unwrap_property;
|
unwrap_prop = cls->unwrap_property;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user