suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix invalidate-object error

Browse Source 
svn: r7911
This commit is contained in:
Matthew Flatt 2007-12-07 12:18:51 +00:00
parent 7b05fd8a9f
commit 69d98535fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/utils/xcglue.c
View File

@ -1314,12 +1314,12 @@ void objscheme_check_valid(Scheme_Object *sclass, const char *name, int n, Schem
if (SCHEME_FALSEP((Scheme_Object *)obj->primflag)) {
scheme_signal_error("%s: object is not yet initialized: %V",
name,
name ? name : "unbundle",
obj);
}
if (obj->primflag < 0) {
scheme_signal_error("%s: %sobject%s: %V",
name,
name ? name : "unbundle",
(obj->primflag == -1) ? "invalidated " : "",
(obj->primflag == -2) ? " (shutdown by a custodian)" : "",
obj);