diff options
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r-- | libguile/gc-mark.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c index d72caf1ac..c334c1075 100644 --- a/libguile/gc-mark.c +++ b/libguile/gc-mark.c @@ -165,12 +165,19 @@ scm_gc_mark (SCM ptr) if (SCM_GC_MARK_P (ptr)) return; + if (!scm_i_marking) + { + static const char msg[] + = "Should only call scm_gc_mark() during GC."; + scm_c_issue_deprecation_warning (msg); + } + SCM_SET_GC_MARK (ptr); scm_gc_mark_dependencies (ptr); } void -ensure_marking (void) +scm_i_ensure_marking (void) { assert (scm_i_marking); } |