From 646052c0dc712c9798a4dafeddd50d3b864403dd Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 25 Feb 2002 23:22:16 +0000 Subject: [PATCH] * gc.c (scm_gc_sweep): Make it compile even when deprecated features are excluded. --- libguile/ChangeLog | 5 +++++ libguile/gc.c | 10 +++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index fc6852e93..dbd473b30 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2002-01-10 Dirk Herrmann + + * gc.c (scm_gc_sweep): Make it compile even when deprecated + features are excluded. + 2002-01-10 Dirk Herrmann * num2integral.i.c (NUM2INTEGRAL): Fixed signedness problem. diff --git a/libguile/gc.c b/libguile/gc.c index 3c901b0dd..6e781f721 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -1709,6 +1709,7 @@ scm_gc_sweep () if (mm != 0) { +#if SCM_ENABLE_DEPRECATED == 1 scm_c_issue_deprecation_warning ("Returning non-0 from a port free function is " "deprecated. Use scm_gc_free et al instead."); @@ -1716,8 +1717,11 @@ scm_gc_sweep () ("(You just returned non-0 while freeing a %s.)", SCM_PTOBNAME (k)); m += mm; +#else + abort (); +#endif } - + SCM_SETSTREAM (scmptr, 0); scm_remove_from_port_table (scmptr); scm_gc_ports_collected++; @@ -1755,6 +1759,7 @@ scm_gc_sweep () mm = scm_smobs[k].free (scmptr); if (mm != 0) { +#if SCM_ENABLE_DEPRECATED == 1 scm_c_issue_deprecation_warning ("Returning non-0 from a smob free function is " "deprecated. Use scm_gc_free et al instead."); @@ -1762,6 +1767,9 @@ scm_gc_sweep () ("(You just returned non-0 while freeing a %s.)", SCM_SMOBNAME (k)); m += mm; +#else + abort(); +#endif } } break;