diff options
author | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:42:01 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:42:01 +0000 |
commit | 9de87eea47536e25ef99bc25f07afdd759ee3575 (patch) | |
tree | 936d52588ace67469aba68f6ad47cbf1a12462ca /libguile/goops.c | |
parent | cb1cfc42a4f5ac4d60a64b425795432a0388ad7e (diff) | |
download | guile-9de87eea47536e25ef99bc25f07afdd759ee3575.tar.gz |
See ChangeLog from 2005-03-02.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 41aa6433a..b1aa22176 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -1617,7 +1617,7 @@ SCM_DEFINE (scm_sys_modify_instance, "%modify-instance", 2, 0, 0, * scratch the old value with new to be correct with GC. * See "Class redefinition protocol above". */ - SCM_REDEFER_INTS; + SCM_CRITICAL_SECTION_START; { SCM car = SCM_CAR (old); SCM cdr = SCM_CDR (old); @@ -1626,7 +1626,7 @@ SCM_DEFINE (scm_sys_modify_instance, "%modify-instance", 2, 0, 0, SCM_SETCAR (new, car); SCM_SETCDR (new, cdr); } - SCM_REALLOW_INTS; + SCM_CRITICAL_SECTION_END; return SCM_UNSPECIFIED; } #undef FUNC_NAME @@ -1639,7 +1639,7 @@ SCM_DEFINE (scm_sys_modify_class, "%modify-class", 2, 0, 0, SCM_VALIDATE_CLASS (1, old); SCM_VALIDATE_CLASS (2, new); - SCM_REDEFER_INTS; + SCM_CRITICAL_SECTION_START; { SCM car = SCM_CAR (old); SCM cdr = SCM_CDR (old); @@ -1650,7 +1650,7 @@ SCM_DEFINE (scm_sys_modify_class, "%modify-class", 2, 0, 0, SCM_SETCDR (new, cdr); SCM_STRUCT_DATA (new)[scm_vtable_index_vtable] = SCM_UNPACK (new); } - SCM_REALLOW_INTS; + SCM_CRITICAL_SECTION_END; return SCM_UNSPECIFIED; } #undef FUNC_NAME |